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