# NOT RUN {
data(snp_data)
data(phe_data)
# }
# NOT RUN {
#obtain the snp position
sp = as.numeric(colnames(snp_data));
fs = fpca.score(snp_data,pos=sp,gename="Gene",percentage = 0.9,nbasis=45);
rlt = qcca_p(phe_data,0.8,fs$score,0.8,Z=NULL);
# }
Run the code above in your browser using DataLab