hormonio = factor(c(rep("AAS",15),rep("GA3",15),rep("AJ",15),rep("H2O",15),rep("STM",15),rep("BAP",15)))
tempo = factor(rep((1:3),each=5,, times = 6))
altura = c(43.5, 44.3, 47.9, 44.8, 46.5, 44.0, 52.8, 52.0, 42.0, 45.5, 50.2, 36.4, 50.9, 50.5, 49.9,
46.0, 47.8, 45.1, 44.6, 42.5, 50.5, 43.4, 52.2, 47.5, 45.4, 48.6, 61.5, 58.0, 56.8, 53.5,
47.2, 40.6, 46.6, 44.7, 42.3, 43.5, 41.5, 57.0, 47.2, 51.5, 58.5, 39.6, 52.5, 59.5, 47.4,
45.9, 42.7, 42.1, 44.5, 47.2, 54.8, 58.8, 58.0, 49.2, 50.2, 56.7, 51.2, 57.1, 63.9, 45.9,
45.1, 42.6, 50.8, 47.6, 41.7, 44.8, 54.5, 51.7, 49.8, 57.6, 63.4, 56.6, 52.6, 62.1, 54.8,
47.6, 42.4, 45.8, 40.7, 41.2, 44.5, 41.0, 46.0, 59.0, 48.0, 53.7, 50.6, 45.5, 46.5, 53.7)
tapply(altura,hormonio,summary)
plot(altura~hormonio)
plot(altura~tempo)