# emulate a dataset with different units
hemoglobin_diff_units <- hemoglobin_data
# first 50 values will be in mg/ML
hemoglobin_diff_units$value[1:50] <- hemoglobin_diff_units$value[1:50] * 10
# last 50 values will be in mmol/L
hemoglobin_diff_units$value[51:100] <- hemoglobin_diff_units$value[51:100] / 1.61
converted <- ln_convert_units(
hemoglobin_diff_units$value[1:100],
c(rep("mg/mL", 50), rep("mmol/L", 50)),
"Hemoglobin"
)
head(converted)
head(hemoglobin_data$value)
Run the code above in your browser using DataLab