set.seed(13)
nz <- 8
ln <- nz
smat <- spam(0,ln,ln)
smat[cbind(sample(ln,nz),sample(ln,nz))] <- 1:nz
par(mfcol=c(1,2),pty='s')spam.options(imagesize=1000)
display(smat)spam.options(imagesize=10)
display(smat)
# very large but very sparse matrix
nz <- 128
ln <- nz^2
smat <- spam(0,ln,ln)
smat[cbind(sample(ln,nz),sample(ln,nz))] <- 1:nz
par(mfcol=c(1,1),pty='s')
display(smat, cex=100)
Run the code above in your browser using DataLab