From 9f89d066265b37f4b68559bbb45cc7d8309bbaa5 Mon Sep 17 00:00:00 2001 From: Andreas Brandmaier Date: Thu, 4 Jul 2024 08:34:58 +0200 Subject: [PATCH] removed commented out lines --- R/OpenMx_scores_input.R | 3 --- 1 file changed, 3 deletions(-) diff --git a/R/OpenMx_scores_input.R b/R/OpenMx_scores_input.R index b230fb0..7280b02 100644 --- a/R/OpenMx_scores_input.R +++ b/R/OpenMx_scores_input.R @@ -24,17 +24,14 @@ OpenMx_scores_input <- function(x, control) { m_deriv <- lapply(q_seq, function(x) {zero}) for (i in q_seq) { -# A_deriv[[i]][which(x$A$labels == param_names[i], arr.ind = TRUE)] <- 1 A_deriv[[i]][which(isTRUE(x$A$free), arr.ind = TRUE)] <- 1 } for (i in q_seq) { -# S_deriv[[i]][which(x$S$labels == param_names[i], arr.ind = TRUE)] <- 1 S_deriv[[i]][which(isTRUE(x$S$free), arr.ind = TRUE)] <- 1 } for (i in q_seq) { -# m_deriv[[i]][which(x$M$labels == param_names[i])] <- 1 m_deriv[[i]][which(isTRUE(x$M$labels))] <- 1 }