rbvs(x, y, ...)
"rbvs"(x, y, m, B = 500, measure = c("pc", "dc", "lasso", "mcplus", "user"), fun = NULL, s.est = s.est.quotient, iterative = TRUE, use.residuals = TRUE, k.max, min.max.freq = 0, max.iter = 10, verbose = TRUE, ...)
n
observations of p
covariates in each row.n
observations.fun
ands.est
.measure
. It is required when
method=="user". Must have at least three arguments: x
(covariates matrix), .y
(response vector), subsamples
(a matrix, each row contains indices of the observations to be used); return a vector of the same length as
the number of covariates in .x
. See for example pearson.cor
or lasso.coef
.probs
(a vector with probabilities) as an argument. See s.est.quotient
and Details below.TRUE
, an iterative extension of the RBVS algorithm is launched.iterative=TRUE
)measure="pc"
), Distance Correlation (measure="dc"
), the regression coefficients estimated via Lasso (measure="lasso"
), the regression coefficients estimated via MC+ (measure="mcplus"
).
set.seed(1)
x <- matrix(rnorm(200*1000),200,1000)
active <- 1:4
beta <- c(3,2.5,-1.7,-1)
y <- 1*rnorm(200) +x[,active]%*%beta
#RBVS algorithm
rbvs.object <- rbvs(x,y, iterative=FALSE)
rbvs.object$active
rbvs.object$subsets[[1]][[4]]
#IRBVS algorithm
rbvs.object <- rbvs(x,y)
rbvs.object$active
Run the code above in your browser using DataLab