# NOT RUN {
A <- c(1,10,30)
E <- c(30,30,30)
beta <- matrix(c(1,10,5,0.1,1,0.5,0.2,2,1),nrow=3)
correl <- "SC"
response <- coef_rep(E,A,correl,beta)
# result : response = c(0.88235294, 0.08823529, 0.02941176)
# }
Run the code above in your browser using DataLab