```
oneout<-c(rnorm(5,sd=5),20,rnorm(5,sd=5))
gap_barp(oneout,gap=c(8,16),xlab="Index",height.at=c(-5,0,5,20),
ylab="Group values",main="Barplot with gap above zero")
oneout[6]<--20
gap_barp(oneout,gap=c(-8,-16),xlab="Index",height.at=c(-20,-5,0,5),
ylab="Group values",main="Barplot with gap below zero")
```

Run the code above in your browser using DataLab