# fertilizer product list
fert <- fertilizers()
# shortening some of the names for display
fert[,2] = substr(fert[,2], 1, 20)
# contents are expressed as a percentage.
fert
myferts <- fert[c(8,15), ]
nutrientRates(myferts, c(100,50))
Run the code above in your browser using DataLab