out <- twobit(times = seq(0, 100, by = 0.5))
plot(out, lwd = 2, which = c("x49", "x130", "x148"), mfrow = c(3, 1))
if (FALSE) {
out <- twobit()
# compare with reference solution
max(abs(out[nrow(out),-1] - reference("twobit")))
}
Run the code above in your browser using DataLab