removed assigned loading multiplier in net.loads

R/helpers.R

@@ -3207,24 +3207,26 @@ adapt.a <- function (test = c("anova","chisq","cor","one.sample","two.sample","p
 
 #' @noRd
 # OS and System Check ----
-# Updated 08.09.2020
-system.check <- function (...)
+# Updated 28.11.2023
+system.check <- function()
 {
+
+  # Get OS usage
   OS <- unname(tolower(Sys.info()["sysname"]))
 
+  # Get RStudio usage
   RSTUDIO <- swiftelse(Sys.getenv("RSTUDIO") == "1", TRUE, FALSE)
 
-  TEXT <- TRUE
-
-  if(!RSTUDIO){if(OS != "linux"){TEXT <- FALSE}}
-
-  res <- list()
-
-  res$OS <- OS
-  res$RSTUDIO <- RSTUDIO
-  res$TEXT <- TEXT
+  # Return list
+  return(
+    list(
+      OS = OS,
+      R = paste0(R.version$major, ".", R.version$minor),
+      RSTUDIO = RSTUDIO,
+      TEXT = swiftelse(!RSTUDIO & OS != "linux", FALSE, TRUE)
+    )
+  )
 
-  return(res)
 }
 
 #' @noRd

R/net.loads.R

@@ -446,7 +446,7 @@ obtain_signs <- function(target_network)
 
 #' @noRd
 # Experimental loadings ----
-# Updated 05.09.2023
+# Updated 30.11.2023
 experimental_loadings <- function(
     A, wc, nodes, node_names, 
     communities, unique_communities
@@ -485,7 +485,7 @@ experimental_loadings <- function(
   # Multiply the assigned loading matrix by 2
   # This computation is a vectorization of putting half
   # of a node's within-community strength on it's diagonal
-  loading_matrix <- loading_matrix * 2
+  #\loading_matrix <- loading_matrix * 2
 
   # Check for unidimensional structure
   if(communities > 1){