# sigma is unknown
set.seed(0)
nmain.p <- 4
interaction.ind <- t(combn(4,2))
X <- matrix(rnorm(50*4,1,0.1), 50, 4)
epl <- rnorm(50,0,0.01)
y<- 1+X[,1]+X[,2]+X[,3]+X[,4]+epl
ABC(X, y, nmain.p = 4, interaction.ind = interaction.ind)
ABC(X, y, nmain.p = 4, extract = "Yes",
varind = c(1,2,5), interaction.ind = interaction.ind)
#'
# users want to enter a suggested value for sigma
# model with only one predictor
try(ABC(X, y, nmain.p = 4, extract = "Yes",
varind = 1, interaction.ind = interaction.ind)) # warning message
Run the code above in your browser using DataLab