# NOT RUN {
#### For independancy "SC" or competition "Comp"
A <- c(1,10,30)
eq_th <- predict_th(A,"SC")
eq_th$pred_e
eq_th$pred_r
###### In presence of regulation
A <- c(1,10,30)
beta <- matrix(c(1,10,5,0.1,1,0.5,0.2,2,1),nrow=3)
B <- apply(beta,1,sumbis)
eq_th <- predict_th(A,"CRPos",B)
eq_th$pred_e
eq_th$pred_r
# }
Run the code above in your browser using DataLab