## Not run:
# x <- seq(0, 2*pi, length.out = 20)
# y <- sin(x)
# xe <- 0.1
# ye <- 0.1 * y
# errorbar(x, y, xe, ye, type = "l", with = FALSE)
#
# cnt <- round(100*randn(20, 3))
# y <- apply(cnt, 1, mean)
# e <- apply(cnt, 1, sd)
# errorbar(1:20, y, yerr = e, bar.col = "blue")
# ## End(Not run)
Run the code above in your browser using DataLab