# NOT RUN {
x <- matrix(c(2, 4, 6))
rray_sin(x)
rray_cos(x)
rray_tan(x)
# rray_atan2() broadcasts
rray_atan2(matrix(1:5), matrix(1:5, nrow = 1))
# ---------------------------------------------------------------------------
# Numerical accuracy of `sin(pi * x)` VS `sinpi(x)`
# From `?sin`
x <- seq(-3, 7, by = 1)
cbind(
x,
sin(pi * x),
rray_sin(pi * x),
sinpi(x),
rray_sinpi(x),
cos(pi * x),
rray_cos(pi * x),
cospi(x),
rray_cospi(x),
tan(pi * x),
rray_tan(pi * x),
tanpi(x),
rray_tanpi(x),
deparse.level = 2
)
# }
Run the code above in your browser using DataLab