R/zzz.R

In ISMtools: Interpretive Structural Modelling Analysis Tools

# ISMtools Package Initialization
# ================================

.onLoad <- function(libname, pkgname) {

  # Package-level options can be set here if needed
  invisible()
}

# Internal function to create ism_example data
# This is used by data-raw/make_data.R
.create_ism_example <- function() {
  ism_example <- matrix(0, nrow = 7, ncol = 7)
  rownames(ism_example) <- colnames(ism_example) <- paste0("F", 1:7)

  ism_example["F1", c("F2", "F5")] <- 1
  ism_example["F2", c("F3", "F6")] <- 1
  ism_example["F3", "F6"] <- 1
  ism_example["F4", c("F2", "F3", "F6")] <- 1
  ism_example["F5", c("F4", "F6")] <- 1
  ism_example["F6", "F7"] <- 1

  ism_example
}