ifelse()
と apply()
なんかを組み合わせて使っていたけど,
R 的にはこういうコードのほうがマシではなかろうか?
少なくとも速度的にはかなり速いはず.
up <- ds[, "upper"] < 0 dw <- ds[, "lower"] > 0 v.col <- c("#808080", "#000000", "#000000")[1 + up + 2 * dw] v.pch <- c(19, 21, 19)[1 + up + 2 * dw]
amazon.co.jp
がいろいろしくじっていて配送が遅れた.
えーと,
出版社のペイジ,
そして
著者たちが作った
supporting website
には,
いろいろとファイルや errata がおかれている.