過去の日録
_ 2011 年 01 月 22 日 (土) 晴
_ 2011 年 01 月 21 日 (金) 晴
_ 2011 年 01 月 20 日 (木) 晴
_ 2011 年 01 月 19 日 (水) 晴
_ 2011 年 01 月 18 日 (火) 晴
_ 2011 年 01 月 17 日 (月) 晴
_ 2011 年 01 月 16 日 (日) 晴
_ 2011 年 01 月 15 日 (土) 曇
_ 2011 年 01 月 14 日 (金) 晴
_ 2011 年 01 月 13 日 (木) 晴
_ 2011 年 01 月 12 日 (水) 晴
- 午前
- 08:3-1010 演習
- C&R社の原稿書き
- 14:35-16:05 講義
_ 2011 年 01 月 11 日 (火) 晴
_ 2011 年 01 月 10 日 (月) 晴
_ 2011 年 01 月 09 日 (日) 晴
> (x <- 2.3 - 1.3)
[1] 1
> # 厳密には1ではない
> sprintf("%.16f", x)
[1] "0.9999999999999998"
> # したがって1との比較は偽になる
> if (x >= 1) print("x >=1") else print("x<1")
[1] "x<1"
> # このような場合に「zapsmall」が使えることがある
> if (zapsmall (x) >= 1) print("x >=1") else print("x<1")
[1] "x >=1"
>
ただし注意のこと
_ 2011 年 01 月 08 日 (土) 晴
_ 2011 年 01 月 07 日 (金) 晴
_ 2011 年 01 月 06 日 (木) 晴
_ 2011 年 01 月 05 日 (水) 晴
_ 2011 年 01 月 04 日 (火) 晴
- 午前
- C&R社の原稿書き
- 午後
- Rで括弧のヘルプがあり,その事例が興味深かった.
> ?Paren
...
Examples:
f <- get("(")
e <- expression(3 + 2 * 4)
identical(f(e), e)
do <- get("{")
do(x <- 3, y <- 2*x-3, 6-x-y); x; y
## note the differences
(2+3)
{2+3; 4+5}
(invisible(2+3))
{invisible(2+3)}
_ 2011 年 01 月 03 日 (月) 晴
_ 2011 年 01 月 02 日 (日) 晴
_ 2011 年 01 月 01 日 (土) 晴