# NOT RUN {
data(bankData)
bankData$weight = rpois(nrow(bankData), 5)
bankData <- PrepData(bankData, dateNm = "date", dateGp = "months",
dateGpBp = "quarters", weightNm = "weight")
PlotRatesOverTime(dataFl = bankData, dateGp = "months", weightNm = "weight",
myVar = "job", newLevels = NULL, normBy = "time")
# }
Run the code above in your browser using DataLab