6 Fev
2013
6 Fev
'13
15:12
Oi Elias, Tenta o seguinte: library(gridExtra) library(lattice) x <- seq(pi/4, 5 * pi, length.out = 100) y <- seq(pi/4, 5 * pi, length.out = 100) r <- as.vector(sqrt(outer(x^2, y^2, "+"))) grid <- expand.grid(x=x, y=y) grid$z <- cos(r^2) * exp(-r/(pi^3)) plot1<-levelplot(seu plot) plot2<-levelplot(seu outro plot) grid.arrange(plot1,plot2) Att, -- Carolina Ramos Caiado Gomes Mestranda em Ecologia e Evolução - UFG Laboratório de Ecologia de Insetos +55 62 8215 3595