# 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.seed2 <- seedCCA(X,Y)
fit.seed2
print(fit.seed2)
# }
Run the code above in your browser using DataLab