simSigmaP(voidratio, stress,
what.out = c("sigmaP", "CI", "SI"),
method = c("casagrande", "VCLzero", "reg1", "reg2", "reg3", "reg4", "pacheco"),
n4VCL = 3, nsim = 100)
sigmaP()
output should be simulated.
It must be on of "sigmaP" (default), "CI" of "SI".sigmaP
, plotCIsigmaP
# 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