search for: mydens

...) {mypar<-c(exp_y[i],sig_yy[i]) myrho_y<-do.call("rho_y",c(list(y=newy),mypar)) rho_y_t_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(...

Hello, everybody: I'm back to share a long piece of example code. Because I had trouble understanding the role of par() and margins when customizing barplots, I have struggled with this example. In case you are a student wanting to place legends or textual markers in the outer regions of a barplot, you might run these examples. There are a few little things I don't quite understand.