# NOT RUN {
#load the library
library(QRFCCA);
#load the snp data set
data(snp_data);
#load the phenotype data set
data(phe_data);
# }
# NOT RUN {
#obtain the snp location
sp=as.numeric(colnames(snp_data));
#calculate the fpc scores;
fs = fpca.score(snp_data,pos=sp,gename="Gene",percentage = 0.9,nbasis=45);
#quadratically regularized CCA;
rlt = qcca_p(phe_data,0.8,fs$score,0.8,Z=NULL);
# }
Run the code above in your browser using DataLab