AVAPS users don't like .Rprofile/.RData, so put this plot function in this package.