# Exemplo do fósforo

fosforo <- c(matrix("0 kg/ha",4,1),matrix("25 kg/ha",4,1),matrix("50 kg/ha",4,1),matrix("75 kg/ha",4,1),matrix("100 kg/ha",4,1))

prodmi <- c(2.38,6.77,3.50,5.94,6.15,8.78,8.99,9.10,9.07,8.73,6.92,8.48,9.55,8.95,10.24,8.66,9.14,10.17,9.75,9.50)