Nothing
adequacymatrix<-function(R,n){
d<-det(R)
#Bartlett
out<-psych::cortest.bartlett(R,n)
chisq<-out$chisq
p_value<-out$p.value
df<-out$df
#KMO
kmo_index<-psych::KMO(R)$MSA
adeq<-list('d'=d,'chisq'=chisq,'p_value'=p_value,'df'=df,'kmo_index'=kmo_index)
return(adeq)
}
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.