library(rbiom)
biom <- slice_max(hmp50, BMI, n = 6)
biom$metadata
# Add a new field to the metadata
biom <- mutate(biom, Obsese = BMI >= 30)
biom$metadata
# Rename a metadata field
biom <- rename(biom, 'Age (years)' = "Age")
biom$metadata
Run the code above in your browser using DataLab