The R Project SVN R-packages

Rev

Rev 7236 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7236 Rev 7667
Line 254... Line 254...
254 
rect(0,-1, 2,1, border = "orange", lwd=2)
 254 
rect(0,-1, 2,1, border = "orange", lwd=2)
255 
clusplot(iris.x, cl3, color = TRUE, xlim = c(0,2), ylim = c(-1,1))
 255 
clusplot(iris.x, cl3, color = TRUE, xlim = c(0,2), ylim = c(-1,1))
256 
box(col="orange",lwd=2); mtext("sub region", font = 4, cex = 2)
 256 
box(col="orange",lwd=2); mtext("sub region", font = 4, cex = 2)
257 
##  or zoom out :
 257 
##  or zoom out :
258 
clusplot(iris.x, cl3, color = TRUE, xlim = c(-4,4), ylim = c(-4,4))
 258 
clusplot(iris.x, cl3, color = TRUE, xlim = c(-4,4), ylim = c(-4,4))
259 
mtext("`super' region", font = 4, cex = 2)
 259 
mtext("'super' region", font = 4, cex = 2)
260 
rect(U[1],U[3], U[2],U[4], lwd=2, lty = 3)
 260 
rect(U[1],U[3], U[2],U[4], lwd=2, lty = 3)
261 
 
 261 
 
262 
# reset graphics
 262 
# reset graphics
263 
par(op)
 263 
par(op)
264 
}
 264 
}