data(portpirie)
exi(portpirie, 4.2, 3, 3.8)
us <- seq(3.9, 4.2, len = 10)
exi(portpirie, us, 3)
exi(portpirie, us, 1:3)
tvu <- c(rep(4.2, 20), rep(4.1, 25), rep(4.2, 20))
exi(portpirie, as.matrix(tvu), 1:3)
us <- seq(3.9, 4.2, len = 100)
eis <- exi(portpirie, us, 1:3)
matplot(us, eis, type = "l", xlab = "Threshold", ylab = "Ext. Index")
Run the code above in your browser using DataLab