data(accrualdemo)
accrual_df<-accrual_create_df(accrualdemo$date,by=accrualdemo$site)
accrual_table(accrual_df)
#format
accrual_table(accrual_df,format_time="%1.1f",format_rrate="%1.1f")
#unit
accrual_table(accrual_df,unit="day")
#common start and current dates
accrual_df<-accrual_create_df(accrualdemo$date,by=accrualdemo$site,start_date="common",
current_date="common")
accrual_table(accrual_df)
accrual_df<-accrual_create_df(accrualdemo$date,by=accrualdemo$site,start_date=as.Date("2020-07-09"),
current_date=as.Date("2020-10-15"))
accrual_table(accrual_df)
Run the code above in your browser using DataLab