RjpWiki はオープンソースの統計解析システム R に関する情報交換を目的とした Wiki です迷路作成 † 迷路を抜けろ! maze <- function(xsize=150, ysize=150, color="black") # 河童の屁 { old <- par(mar=c(1,1,1,1)) xsize3 <- xsize+3 ysize3 <- ysize+3 plot(c(2, xsize3), c(2, ysize3), type="n", axes=FALSE, xlab="", ylab="", asp=1) p <- matrix(FALSE, ysize+4, xsize+4) p[3:(ysize+2), 3:(xsize+2)] <- TRUE segments(c(2, 2, 3, xsize3), c(2, ysize3, 2, 2), c(2, xs