set.seed(123)
frq <- seq(0, 1, length.out = 16)[2:8]
n <- 5
p <- 2
nbase <- 2
X <- matrix(rnorm(n * p), n, p)
true_beta <- matrix(rnorm(p * nbase), p, nbase)
alph <- rnorm(nbase)
f <- X %*% true_beta + matrix(alph, n, nbase, byrow = TRUE) +
matrix(rnorm(n * nbase), n, nbase)
rrr <- rrr_get(X, f, frq, nbase = nbase, nrank = 1)
Run the code above in your browser using DataLab