pesticides-package: Analysis of single serving and composite pesticide residue

In pesticides: Analysis of single serving and composite pesticide residue measurements

Description

Single item and composite pesticide residue measurements of fifteen commodity-pesticide combinations plus analytical tools.

Details

Package:	pesticides
Type:	Package
Version:	0.1
Date:	2010-11-17
License:	GPL-3
LazyLoad:	yes

Author(s)

David M Diez

Maintainer: David M Diez <[e-mail]>

References

United States Department of Agriculture Pesticide Data Program (www.ams.usda.gov/science/pdp/).

United States Environmental Protection Agency (http://www.epa.gov/).

National Food Administration of Sweden (http://www.slv.se/en-gb/) (http://www.slv.se/upload/dokument/rapporter/kemiska/bekampningsmedel/slvrapp12_2000_pesticide_residues.pdf).

See Also

apple, peach, pear, pepper, cor2icc, cdfDist

Examples

#=====> cor2icc <=====#
data(apple)
pest <- unique(apple$pesticide)
icc  <- rep(-1, length(pest))
for(i in 1:length(pest)){
  these  <- apple$pesticide == pest[i]
  r      <- cor(apple$comp[these], apple$ss[these])
  icc[i] <- cor2icc(r, 10,"within")
}
names(icc) <- pest
icc


#=====> cdfDist <=====#
par(mfrow=1:2)

F1   <- seq(0.001, 0.999, 0.001)[-sample(999, 300)]
x1   <- exp(quantile(rnorm(10000, 0.5, sd=0.5), F1))
F2   <- seq(0.001, 0.999, 0.001)[-sample(999, 300)]
x2   <- qchisq(F2, mean(x1))
hold <- cdfDist(x1, F1, x2, F2)
plot(hold)
summary(hold)

F1   <- seq(0.001, 0.999, 0.001)[-sample(999, 300)]
x1   <- exp(quantile(rnorm(10000, 0.5, sd=0.5), F1))
F2   <- seq(0.001, 0.999, 0.001)[-sample(999, 300)]
x2   <- qchisq(F2, mean(x1)+1)
hold <- cdfDist(x1, F1, x2, F2)
plot(hold)
summary(hold)

pesticides documentation built on May 30, 2017, 7:19 a.m.