library(pipenostics)
d = c(812.8, 219.0) # [mm]
wth = c( 19.1, 14.5) # [mm]
uts = c(530.9, 455.1) # [N/mm^2]
l = c(203.2, 200.0) # [mm]
depth = c( 13.4, 9.0) # [mm]
shell92pf(d, wth, uts, depth, l)
# [1] 11.09262 25.27286
Run the code above in your browser using DataLab