# NOT RUN {
if(interactive()){
throwchart(c(1,2),c(2,8),c("#000","#F82"),id = c("id1","id2"),c(1,5))
throwchart(c(1,2),c(2,8), offSet = 1, webinteract=TRUE)
}
if(!interactive()){
throwchart(c(1,2),c(2,8), offSet = 1, webinteract=FALSE)
throwchart(c(1,2),c(2,1), webinteract=FALSE)
throwchart(c(1,2),c(2,8),c("#000","#F00"),id = c("id1","id2"),c(1,5), webinteract=FALSE)
n <- 10
Avant <- rnorm(n)
Apres <- Avant + rnorm(n) + 10
throwchart(Avant, Apres, xlim = c(-4,14), webinteract = FALSE)
throwchart(Avant, Apres, offSet = 0, webinteract = FALSE)
throwchart(Avant, Apres, offSet = 8, webinteract = FALSE)
}
# }
Run the code above in your browser using DataLab