Displaying 2 results from an estimated 2 matches for "mydens".
2006 Sep 22
4
Creating Movies with R
...)
{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(...
2009 Mar 11
0
Working up examples of barplots with customized marginal items
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.