In ablejec/animatoR: Support for Animated Graphics in Base R Graphics

knitr::opts_chunk$set(echo = TRUE)

par(mar = rep(3, 4))
for (i in seq(pi/2, -4/3 * pi, length = 12)) {
    plot(0, 0, pch = 20, ann = FALSE, axes = FALSE)
    arrows(0, 0, cos(i), sin(i))
    axis(1, 0, "VI"); axis(2, 0, "IX")
    axis(3, 0, "XII"); axis(4, 0, "III"); box()
}

ablejec/animatoR documentation built on Feb. 21, 2020, 10:09 p.m.