exercise_3.R

# load the data
data <- read.csv("/data_storage/testdata_exercise_3.csv")

# data wrangling
library(dplyr)
new_data <- data %>% 
  filter(a > 0)

# save the data
saveRDS(new_data, "/data_storage/edited_testdata_exercise_3.csv")