powered by
Function to estimate the cost of tablets taken (from IPD)
value_Shows_IPD(ind_part_data, shows_related_words, shows_nrcode)
a dataframe containing IPD
non response code for ADL, default is NA
sum of scores, if success -1, if failure
# NOT RUN { datafile <- system.file("extdata", "trial_data.csv", package = "packDAMipd") trial_data <- load_trial_data(datafile) value_Shows_IPD(trial_data, "qsy", NA) # }
Run the code above in your browser using DataLab