# NOT RUN {
## Example
set.seed(1)
X1 <- rnorm(200)
Y <- X1 + rnorm(200)
X2 <- 0.5 * X1 + Y + 0.2 * c(rnorm(100), rnorm(100)+3)
X <- cbind(X1, X2)
A <- as.factor(rep(c(0, 1), each=100))
obj <- SRanalysis(X, Y, A, 10,
pars_SR=list(B=NA))
plot(obj, varnames = c("X1", "X2"), labels=TRUE)
print(obj$results)
# }
Run the code above in your browser using DataLab