Fabulous Hitmontop

Appendix to report

Data cleaning

library(tidyverse)
library(skimr)
library(janitor)
library(tidymodels)

met_clean <- read.csv("data/MetObjects.csv") |>
  clean_names() |>
  select(is_highlight, is_timeline_work, object_end_date ) |>
  mutate(
    object_end_date = as.numeric(object_end_date),
    finished_recently = if_else(object_end_date > 1650, "yes" , "no"),
    finished_recently = as.factor(finished_recently),
    is_timeline_work = as.logical(is_timeline_work),
    is_timeline_work = if_else(is_timeline_work == TRUE, "Timeline Work" , "Not Timeline Work"),
    is_highlight = as.logical(is_highlight),
    is_highlight = if_else(
      is_highlight == TRUE, "Highlight" , "Not Highlight"
      )
  )

write.csv(met_clean, "data/MetObjects_Cleaned.csv", row.names=FALSE)

Other appendicies (as necessary)