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 がおかれている.