data(accrualdemo)
accrual_df <- accrual_create_df(accrualdemo$date)
plot(accrual_df)
plot(accrual_df, "abs", unit="week")
plot(accrual_df, "pred", target = 300)
plot(accrual_df, "pred", target = 300, engine = "ggplot")
Run the code above in your browser using DataLab