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