# NOT RUN {
data("dataSIM",package="CSFA")
Mat1 <- dataSIM[,c(1:6)]
Mat2 <- dataSIM[,-c(1:6)]
MFA_out <- CSanalysis(Mat1,Mat2,"CSmfa",component.plot=1,which=c())
labels <- rep("Noise",ncol(dataSIM))
labels[c(1:31,332:341)] <- "Signal"
CSlabelscompare(CSresult=MFA_out,labels=labels,type="factors")
CSlabelscompare(CSresult=MFA_out,labels=labels,type="factorlabels")
# }
Run the code above in your browser using DataLab