Displaying 1 result from an estimated 1 matches for "lentot".
Did you mean:
lento
2006 Sep 22
4
Creating Movies with R
...scaled[ i-1, ]<-myrho_y/max(myrho_y)
}
# The following 2 plots are an example of the plots I'd like to use to
make an animation
g <- expand.grid(x = newx, y = newy)
instant<-100
mydens<-rho_x_t[ instant, ]%o%rho_y_t[ instant, ]/(max(rho_x_t[
instant, ]%o%rho_y_t[ instant, ]))
lentot<-nx^2
dim(mydens)<-c(lentot,1)
g$z<-mydens
jpeg("dens-t-3.jpeg")
print(wireframe(z ~ x * y, g, drape = TRUE,shade=TRUE,
scales = list(arrows = FALSE),pretty=FALSE, aspect = c(1,1), colorkey = TRUE
,zoom=0.8, main=expression("Density at t=2"), zlab =
list(expression(&qu...