# Add column to metadata named "categorical" redefining age groups

# copy your metadata file with `scp` from server to local computer
# Replace <palceholder> with your names or values
library(tidyverse)
# define filename
metadata_file <- "dog_metadata.txt"
# load tsv file
dat <- read_tsv(metadata_file)
# convert given <continuous> variable to new <categorical> variable with 3 groups
# <category 1>: from 0 to smaller than <x>
# <category 2>: from <x> up to but excluding <y>
# <category 3>: from <y> up to `Inf`
dat <- mutate(dat, categorical = cut(age_years,
                                     breaks = c(0, 3.9, 6.9, Inf),
                                     labels = c("Group 1",
                                                "Group 2",
                                                "Group 3")))

# Save new dataset
write_tsv(dat, "age-grouped-metadata.txt")

# copy your `<new filename>.txt` to the server, place it in your data folder
# and use it instead of the old metadata file (command outlined in Script#0)