library(pipenostics)
fric_vatankhan(c(2118517, 2000, 2118517), c(1e-6, 70e-3/1, 7e-3/1))
# [1] 0.01031665 0.03200000 0.03375210 # []
fric_vatankhan(c(2118517, 5500, 2118517), c(1e-6, 50e-3/1, 7e-3/1), TRUE)
# [1] 0.01031665 0.07556163 0.03375210
Run the code above in your browser using DataLab