# NOT RUN {
###### In presence of competition plus regulation
A <- c(1,10,30)
E0 <- c(30,30,30)
beta <- matrix(c(1,10,5,0.1,1,0.5,0.2,2,1),nrow=3)
B <- apply(beta,1,sumbis)
eq_eff <- predict_eff(E0,B,A,"CRPos")
eq_eff$pred_e
eq_eff$pred_tau
eq_eff$pred_E
# }
Run the code above in your browser using DataLab