Description Usage Arguments Author(s) Examples
View source: R/glamlasso_print.R
This function will print some information about the glamlasso object.
1 2 |
x |
A glamlasso object |
... |
ignored |
Adam Lund
1 2 3 4 5 6 7 8 9 10 11 12 13 |
## Not run:
n1 <- 65; n2 <- 26; n3 <- 13; p1 <- 13; p2 <- 5; p3 <- 4
X1 <- matrix(rnorm(n1 * p1), n1, p1)
X2 <- matrix(rnorm(n2 * p2), n2, p2)
X3 <- matrix(rnorm(n3 * p3), n3, p3)
Beta <- array(rnorm(p1 * p2 * p3) * rbinom(p1 * p2 * p3, 1, 0.1), c(p1 , p2, p3))
mu <- RH(X3, RH(X2, RH(X1, Beta)))
Y <- array(rnorm(n1 * n2 * n3, mu), dim = c(n1, n2, n3))
fit <- glamlasso(list(X1, X2, X3), Y, family = "gaussian", penalty = "lasso", iwls = "exact")
fit
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.