>>319
求めるのは最大値だった。
> optimize(R, c(0,pi),maximum = TRUE)
$maximum
[1] 1.570796
$objective
[1] 0.7071068

t=π/2, 3/2πのとき1/√2が最大値