library(tibble)
library(dplyr)
library(admiral)
library(admiraldev)
adbcva <- tribble(
~STUDYID, ~USUBJID, ~AVAL,
"XXX001", "P01", 5,
"XXX001", "P02", 10,
"XXX001", "P03", 15,
"XXX001", "P04", 20,
"XXX001", "P05", 25
)
adbcva <- adbcva %>% mutate(AVAL = convert_etdrs_to_logmar(AVAL))
Run the code above in your browser using DataLab