Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
fig.width=6,
fig.height=5,
collapse = TRUE,
comment = "#"
)
## ----setup--------------------------------------------------------------------
library(MultiGroupO)
sim.list<-fun.sim(g=c(30,30,30),mean1=2,d=0,sds2=c(1,1,1,1),corr=c(0.5,0.5,0.5,0),
n.var=c(20,50))
datos1 <- as.data.frame(sim.list$x)
datos1<-subset(datos1,select=-grp)
grupos <- sim.list$grp
pca(datos1,grupos,Plot=TRUE,center=TRUE,scale=FALSE)
mat.to.diag1<-new.cov(datos1,cls=grupos,A=diag(ncol(datos1)))
mgpca(mat.to.diag=mat.to.diag1,mat.x=as.matrix(datos1),cls=grupos,Plot=T,ncomp=2,center = TRUE,scale = TRUE)
## ----setup2-------------------------------------------------------------------
library(MultiGroupO)
sim.list<-fun.sim(g=c(30,30,30),mean1=2,d=0,sds2=c(1,1,1,1),corr=c(0.5,0.5,0.5,0),
n.var=c(20,50))
datos1 <- as.data.frame(sim.list$x)
datos1<-subset(datos1,select=-grp)
grupos <- sim.list$grp
mdr(group=grupos,data.x=sim.list$`lisx`,c=2)
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.