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)
percentComponents(sieve = sieve.example, percent = percent.example, metric =
TRUE)
Run the code above in your browser using DataLab