Displaying 2 results from an estimated 2 matches for "myden".
Did you mean:
ryden
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
...y75")
barplot(x, names=mynames, las=2, col=mycols)
legend(2,20,legend=c("A","B","C","D"),fill=mycols)
### Still, I don't like the solid shades so much.
### fill up the bars with angled lines.
### density determines number of lines inside the bar.
myden <- c(60,20,30,40,25)
### angles determines the direction of lines inside bars
myangles <- c(20,-30,60,-40,10)
barplot(x, names=mynames, las=2, col=mycols,density=myden,angle=c(20,60,-20))
legend(1,20,legend=c("A","B","C","D"),density=myden,angle=myang...