# Example 1
sieve.example <- c(3/8, 4, 10, 20, 40, 140, 200)
percent.example <- c(95.72, 90.23, 81.49, 66.36, 50.00, 8.51, 4.82)
grainSize.coefs(sieve = sieve.example, percent = percent.example)
# Example 2
grainSize.coefs(D60 = 0.10, D30 = 0.03, D10 = 0.002)
Run the code above in your browser using DataLab