## Make test data available
data(kola.o)
attach(kola.o)
## Estimate the fractile for 20 mg/kg As
gx.fractile(As, 20)
temp <- gx.fractile(As, 20)
temp
## Clean-up and detach test data
rm(temp)
detach(kola.o)
Run the code above in your browser using DataLab