Print number of covariates and number of active covariates for SDAM object.
# S3 method for class 'SDAM'
print(x, ...)
No return value, called for side effects
set.seed(1)
X <- matrix(rnorm(10 * 5), ncol = 5)
Y <- sin(X[, 1]) - X[, 2] + rnorm(10)
model <- SDAM(x = X, y = Y, Q_type = "trim", trim_quantile = 0.5, nfold = 2, n_K = 1)
#> [1] "Initial cross-validation"
#> [1] "Second stage cross-validation"
print(model)
#> SDAM result
#>
#> Number of covariates: 5
#> Number of active covariates: 0