# NOT RUN {
DATA1 <- matrix(rnorm(50), nrow=5)
DATA2 <- matrix(rnorm(100), nrow=5)
DATA <- cbind(DATA1, DATA2)
Jk <- c(10, 20) #DATA1 has 10 columns, DATA2 20.
R <- 4
Target <- matrix(c(1,1,1,0,1,0,0,1), 2, 4)
cv_structuredSCA(DATA, Jk, R, Target, MaxIter = 100, NRSTARTS = 40,
LassoSequence = seq(from= 0.002, to=0.1,
length.out = 10))
# }
Run the code above in your browser using DataLab