library(tidyverse)
|
|
|
|
|
|
readGPSMetrics <- function()
|
|
{
|
|
as_tibble(read.csv("./data/speedData.csv"))
|
|
}
|
|
|
|
readWellnessData <- function()
|
|
{
|
|
as_tibble(read.csv("./cleaned/time_series_notnormalized_with_0NaN_wellness.csv"))
|
|
}
|
|
|
|
readRPEData <- function()
|
|
{
|
|
as_tibble(read.csv("./cleaned/notnormalized_with_0Nan_rpe.csv"))
|
|
}
|