# NOT RUN {
n <- 50; p <- 100; q <- 3
X <- matrix(rnorm(n*p),nrow=n,ncol=p)
Y <- replicate(n=q,expr=rnorm(n=n,mean=rowSums(X[,1:5])))
object <- joinet(Y=Y,X=X)
# }
# NOT RUN {
browseVignettes("joinet") # further examples
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab