fixed demo(plotmath) in R-tips