data(lam_mxr_parsed)
data(lam_metadata)
lam_build_out <- buildDose(lam_mxr_parsed)
lam_collapsed <- collapseDose(lam_build_out, lam_metadata, naFreq = 'most', 'xr|er')
lam_collapsed$note # Note level collapsing
lam_collapsed$date # Date level collapsing
Run the code above in your browser using DataLab