### Run this cell before continuing.
library(tidyverse)
library(repr)
library(tidymodels)
options(repr.matrix.max.rows = 6)
source("tests.R")
source('cleanup.R')

# your code here
fail() # No Answer - remove if you provide an answer
answer0.0

test_0.0()

# your code here
fail() # No Answer - remove if you provide an answer
answer0.1

test_0.1()

# your code here
fail() # No Answer - remove if you provide an answer
answer0.2

test_0.2()

# your code here
fail() # No Answer - remove if you provide an answer
answer0.3

test_0.3()

# your code here
fail() # No Answer - remove if you provide an answer
marathon

test_1.0()

options(repr.plot.width = 8, repr.plot.height = 7)

set.seed(2000) ### DO NOT CHANGE

#... <- ... |>
#    sample_n(...)

# your code here
fail() # No Answer - remove if you provide an answer
answer2

test_2.0()

# run this cell to see a visualization of the 4 nearest neighbours
options(repr.plot.height = 6, repr.plot.width = 7)
marathon_50 |>
    ggplot(aes(x = max, y = time_hrs)) + 
        geom_point(color = 'dodgerblue', alpha = 0.4) +
        geom_vline(xintercept = 100, linetype = "dotted") +
        xlab("Maximum Distance Ran per \n Week During Training (mi)") +
        ylab("Race Time (hours)") + 
        geom_segment(aes(x = 100, y = 2.56, xend = 107, yend = 2.56), col = "orange") +
        geom_segment(aes(x = 100, y = 2.65, xend = 90, yend = 2.65), col = "orange") +
        geom_segment(aes(x = 100, y = 2.99, xend = 86, yend = 2.99), col = "orange") +
        geom_segment(aes(x = 100, y = 3.05, xend = 82, yend = 3.05), col = "orange") +
        theme(text = element_text(size = 20))

#... <- ... |> 
#  mutate(diff = abs(100 - ...)) |> 
#  ...(diff, ...) |> 
#  summarise(predicted = ...(...)) |>
#  pull()

# your code here
fail() # No Answer - remove if you provide an answer
answer3

test_3.0()

# your code here
fail() # No Answer - remove if you provide an answer
answer4

test_4.0()

# your code here
fail() # No Answer - remove if you provide an answer
answer5

test_5.0()

set.seed(2000) ### DO NOT CHANGE

#... <- initial_split(..., prop = ..., strata = ...)
#... <- training(...)
#... <- testing(...)


# your code here
fail() # No Answer - remove if you provide an answer

test_6.0()

set.seed(1234) #DO NOT REMOVE

#... <- nearest_neighbor(weight_func = ..., neighbors = ...) |> 
#       set_engine(...) |>
#       set_mode(...) 

#... <- recipe(... ~ ..., data = ...) |>
#       step_scale(...) |>
#       step_center(...)
#  

# your code here
fail() # No Answer - remove if you provide an answer
marathon_recipe

test_7.0()

set.seed(1234) # DO NOT REMOVE

# your code here
fail() # No Answer - remove if you provide an answer
marathon_workflow

test_7.1()

set.seed(2019) # DO NOT CHANGE
# your code here
fail() # No Answer - remove if you provide an answer
marathon_results

test_8.0()

set.seed(2020) # DO NOT REMOVE

#... <- marathon_results |>
#    filter(.metric == ...) |>
#    slice_min(..., ...)

# your code here
fail() # No Answer - remove if you provide an answer
marathon_min

test_8.1()

set.seed(1234) # DO NOT REMOVE

#... <- marathon_min |>
#          pull(...)

#... <- nearest_neighbor(weight_func = ..., neighbors = ...) |>
#          set_engine(...) |>
#          set_mode(...)

#... <- workflow() |>
#          add_recipe(...) |>
#          add_model(...) |>
#          fit(data = ...)

#... <- marathon_best_fit |>
#           predict(...) |>
#           bind_cols(...) |>
#           metrics(truth = ..., estimate = ...)

# your code here
fail() # No Answer - remove if you provide an answer
marathon_summary

test_8.2()

# your code here
fail() # No Answer - remove if you provide an answer

test_8.3()

set.seed(2019) # DO NOT CHANGE

options(repr.plot.width = 7, repr.plot.height = 7)

# your code here
fail() # No Answer - remove if you provide an answer
marathon_plot

test_9.0()

source('cleanup.R')