
Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
exi(portpirie, 4.2, r = 3, ulow = 3.8)
tvu <- c(rep(4.2, 20), rep(4.1, 25), rep(4.2, 20))
exi(portpirie, tvu, r = 1)
exi(portpirie, tvu, r = 0)
# }
Run the code above in your browser using DataLab