if (FALSE) {
k <- plot_errbar(1:100, rnorm(100, 1, 2),
xlab="axe x", ylab="axe y", bty="n", xlim=c(1,100),
errbar.x=2, errbar.y=rnorm(100, 1, 0.1))
show_name(k)
k <- plot_errbar(1:10, rnorm(10, 1, 2),
xlab="axe x", ylab="axe y", bty="n", xlim=c(1,10),
errbar.x=2, errbar.y=rnorm(10, 1, 0.1),
names=LETTERS[1:10])
show_name(k)
k <- plot_errbar(1:10, rnorm(10, 1, 2),
xlab="axe x", ylab="axe y", bty="n", xlim=c(1,10),
errbar.x=2, errbar.y=rnorm(10, 1, 0.1))
show_name(k, names=LETTERS[1:10])
}
Run the code above in your browser using DataLab