Nothing
#' A function for the centroid fitting scheme for the inner weights within sempls. The centroid scheme only uses the sign of the correlation between latent variables connected with each other.
centroid <-
function(model, fscores, pairwise, method){
method <- "pearson" ## for other methods: convergence problems!
ifelse(pairwise, use <- "pairwise.complete.obs", use <- "everything")
D <- model$D
C <- (D + t(D))
innerW <- C
innerW[C == 1] <- sign(cor(fscores, use=use, method=method))[C == 1]
return(innerW)
}
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.