require("MEET")
require("seqinr")
pathMEET <- system.file("sequences", package = "MEET")
data(iicc)
data(TranscriptionFactor)
iicc$method<-"PCA"
#Define the numner of principal components
iicc$vector<-c(1,3,5)
kfold.PCA(iicc, TF = paste(pathMEET, "AP1.fa", sep = "/"))
Run the code above in your browser using DataLab