# NOT RUN {
######## data(cookie) ########
data(cookie)
myseq<-seq(141,651,by=2)
X<-as.matrix(cookie[-c(23,61),myseq])
Y<-as.matrix(cookie[-c(23,61),701:704])
fit.ols1 <- seedCCA(X[,1:4], Y[,1], type="cca")
fit.pls1 <- seedCCA(X,Y[,1],type="pls")
coef(fit.ols1)
coef(fit.pls1)
coef(fit.pls1, u=4)
# }
Run the code above in your browser using DataLab