# input data: stress and void ratio
pres <- c(1, 12.5, 25, 50, 100, 200, 400, 800, 1600)
VR <- c(1.43, 1.41, 1.40, 1.39, 1.35, 1.31, 1.25, 1.18, 1.12)
# simulation (may take a few seconds)
simres <- simSigmaP(VR, pres)
head(simres)
# plot percentile confidence intervals
ci <- plotCIsigmaP(simres, conf.level = 0.95,
shade.col = "blue", ordered = TRUE)
print(ci)
# End (Not run)
Run the code above in your browser using DataLab