library(pipenostics)
fric_romeo(c(2118517, 2000, 2118517), c(0, 70e-3/1, 7e-3/1))
# [1] 0.01028473 0.03200000 0.03373215 # []
fric_romeo(c(2118517, 3030, 2118517), c(0, 50e-3/1, 7e-3/1), TRUE)
# [1] 0.01028473 0.07859636 0.03373215 # []
Run the code above in your browser using DataLab