text

cedwards

·

plot matrix

·

Plain Text

·

Total Size: 1.25 KB

·

·

Created: 6 months ago

·

Edited: 6 months ago

matrix.image=function(A, x=NULL, y=NULL, col=rainbow(100,start=0.67,end=0), bw=FALSE, do.contour=FALSE, do.legend=TRUE,...) { if(do.legend) layout(mat=cbind(matrix(1,9,9),rep(3,9),rep(2,9))); par(mar=c(6,5,3,2)); if(is.null(x)) x=1:ncol(A); if(is.null(y)) y=1:nrow(A); nx=length(x); ny=length(y); x1=c(1.5*x[1]-0.5*x[2],1.5*x[nx]-0.5*x[nx-1]); y1=c(1.5*y[1]-0.5*y[2],1.5*y[ny]-0.5*y[ny-1]); if(bw) col=grey( (200:50)/200 ); image(list(x=x,y=y,z=t(A)),xlim=x1,ylim=rev(y1),col=col,cex.axis=1.8,cex.lab=1.8,bty="u",...); abline(v=range(x1)); abline(h=range(y1)); if(do.contour) contour(x,y,t(A),nlevels=5,labcex=1.2,add=TRUE); if(do.legend) { l.y=seq(min(A),max(A),length=100); par(mar=c(6,2,3,1)) image(list(x=1:2,y=l.y,z=rbind(l.y,l.y)),col=col,bty="o",xaxt="n",yaxt="n"); axis(side=2,cex.axis=1.5,at=pretty(seq(min(A),max(A),length=10))); } } x=1:80; A=outer(x,x,FUN=function(x,y) 0.737*exp(-0.01*(x-y)^2)); px=seq(0,4,length=length(x)); matrix.image(A,px,px,xlab="Size t",ylab="Size t+1",do.contour=TRUE,do.legend=TRUE); mtext("Probability density",side=2,line=3,cex=1.5);

Code from Stephen P. Ellner for plotting matrices in color as we see them.

0 bits

24 views

Are you sure you want to delete?