Nothing
## File Name: lsem_wald_test.R
## File Version: 0.04
lsem_wald_test <- function(theta, V, A)
{
requireNamespace('MASS')
r <- ( A %*% theta )[,1]
W <- A %*% V %*% t(A)
W1 <- MASS::ginv( X=W )
chisq <- ( t(r) %*% W1 %*% r )[1,1]
df <- nrow(A)
p <- 1 - stats::pchisq(q=chisq, df=df)
#-- output
res <- list(chisq=chisq, df=df, p=p)
return(res)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.