Independent Testing for n_subject.R

[LittleBeannie]

• Test plan of n_subject:

  • if group = ... is not a factor, throw errors
  • if par = NULL, return the number of subjects in each group (take the r2rtf::r2rtf_adae dataset as an example)
  • if, say, par = AEDECOD, return the number of subject per group per AE (take the r2rtf::r2rtf_adae dataset as an example)

• Test plan of avg_event:

  • if group = ... is not a factor, throw errors
  • if par = NULL, return the average number of events in each group (take the r2rtf::r2rtf_adae dataset as an example)
  • if, say, par = AEDECOD, return the average number of events per group per AE (take the r2rtf::r2rtf_adae dataset as an example)

• Test plan of avg_duration

  • if group = ... is not a factor, throw errors
  • if par = NULL, return the average duration in each group (take the r2rtf::r2rtf_adae dataset as an example)
  • if, say, par = AEDECOD, return the average duration per group per AE (take the r2rtf::r2rtf_adae dataset as an example)