last tweak

philchalmers · philchalmers · commit fd8dddc7af24 · 2024-12-15T16:21:34.000-05:00
diff --git a/R/utils.R b/R/utils.R
@@ -396,7 +396,7 @@ Lambdas <- function(pars, Names){
         tmp <- pars[[i]]
         lambdas[i,] <- ExtractLambdas(tmp, include_fixed = FALSE) /1.702
         if(tmp@ncat > 2 && (is(tmp, 'gpcm') || is(tmp, 'nominal')))
-            lambdas[i,] <- lambdas[i,] * sqrt(tmp@ncat * 1.702)
+            lambdas[i,] <- lambdas[i,] * sqrt((tmp@ncat-1) * 1.702)
     }
     dcov <- if(ncol(gcov) > 1L) diag(sqrt(diag(gcov))) else matrix(sqrt(diag(gcov)))
     lambdas <- lambdas %*% dcov

Original file line number	Diff line number	Diff line change
`@@ -396,7 +396,7 @@ Lambdas <- function(pars, Names){`
`396`	`396`	`tmp <- pars[[i]]`
`397`	`397`	`lambdas[i,] <- ExtractLambdas(tmp, include_fixed = FALSE) /1.702`
`398`	`398`	`if(tmp@ncat > 2 && (is(tmp, 'gpcm') \|\| is(tmp, 'nominal')))`
`399`		`- lambdas[i,] <- lambdas[i,] * sqrt(tmp@ncat * 1.702)`
	`399`	`+ lambdas[i,] <- lambdas[i,] * sqrt((tmp@ncat-1) * 1.702)`
`400`	`400`	`}`
`401`	`401`	`dcov <- if(ncol(gcov) > 1L) diag(sqrt(diag(gcov))) else matrix(sqrt(diag(gcov)))`
`402`	`402`	`lambdas <- lambdas %*% dcov`