interaction.plot(npk$block, npk$P, npk$yield,
                 xlab = "terreno", ylab = "rendimento")