Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
library(dineR)
## -----------------------------------------------------------------------------
# Number of observations in sample 1
n_X <- 100
# Number of features in sample 1
p_X <- 100
# Number of observations in sample 2
n_Y <- n_X
# Number of features in sample 2
p_Y <- p_X
# Generate the data
data <- data_generator(n = n_X, p = p_X, seed = 123)
## -----------------------------------------------------------------------------
X <- data$X
Y <- data$Y
## -----------------------------------------------------------------------------
loss <- "lasso"
nlambda <- 3
tuning <- "none"
## -----------------------------------------------------------------------------
result <- estimation(X, Y, loss = loss, nlambda = nlambda, tuning = tuning)
## -----------------------------------------------------------------------------
names(result)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.