215c46296244d6e1dc5378a6135314eff42d9c7a
[valse.git] / test / pkgExample.R
1 library(valse)
2 n = 50; m = 10; p = 5
3 beta = array(0, dim=c(p,m,2))
4 beta[,,1] = 1
5 beta[,,2] = 2
6 data = generateXY(n, c(0.4,0.6), rep(0,p), beta, diag(0.5, p), diag(0.5, m))
7 X = data$X ; Y = data$Y
8 res = runValse(X, Y, kmax = 5)