# NOT RUN {
# }
# NOT RUN {
library(equSA)
p <- 500
coef_true <- rep(0,p)
coef_true[1:5] <- c(2,4,-3,-5,10)
coef <- c(1,coef_true)
data <- SimMNR(n = 200, p = 500, coef = coef, family = "gaussian")
MNR(data$x, data$y, family = "gaussian")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab