data(MedUnits)
# Show available conversions
MedUnits$Measurement
# Convert SI Glucose measurement to 'Conventional' units
GlucoseSI <- c(5, 5.4, 5, 5.1, 5.6, 5.1, 4.9, 5.2, 5.5) # in SI Units
GlucoseUS <- ConvertMedUnits(GlucoseSI, "Glucose", to="US")
cbind(GlucoseSI, GlucoseUS)
if (FALSE) {
# See what happens when there is more than one match
ConvertMedUnits(27.5, "Creatin", to="US")
}
# To solve the problem do:
ConvertMedUnits(27.5, "Creatinine", to="US", exact=TRUE)
Run the code above in your browser using DataLab