powered by
data(peach)
pesticide
comp
ss
lod
items
state
origin
year
month
day
site
lab
variety
data(peach) these <- peach$pesticide == peach$pesticide[1] r <- cor(peach$comp[these], peach$ss[these]) n <- mean(peach$items[these]) cor2icc(r, n, "not")
Run the code above in your browser using DataLab