# Site with constant unit weight = 100 pcf, GWT at 10 ft depth
temp <- sigmaZ.profile(gamma = rep(100, 3), depth = c(10, 20, 30), zw = 10,
metric = FALSE)
depth <- temp$depth
sigmaTotal <- temp$sigmaZ.total
u <- temp$u
sigmaEff <- temp$sigmaZ.eff
sigmaZ.plot(depth = depth, sigmaZ.eff = sigmaEff,
metric = FALSE, sigmaZ.total = sigmaTotal, u = u)
Run the code above in your browser using DataLab