tests/testthat/test.general_run.R

In simzim96/AnchorRegression: Perform AnchorRegression

library(AnchorRegression)

set.seed(1)
x <- as.data.frame(matrix(data = rnorm(100),nrow = 100,ncol = 10))

anchor <- as.data.frame(matrix(data = rnorm(20),nrow = 100,ncol = 2))
colnames(anchor) <- c('X1','X2')
gamma <- 2

target_variable <- 'V2'


anchor_regression(x, anchor, gamma, target_variable)
anchor_stability(x, anchor, target_variable, lambda, alpha=0.05)