library("R.matlab")

source("weightEstimation.R")
source("error_metrics.R")
source("errorPlot.R")

segment_struct <- R.matlab::readMat("segment.mat")
segment_struct <- segment_struct[[1]]

distance <- segment_struct[[1]][1,]
altitude <- segment_struct[[2]][1,]
slope <- segment_struct[[3]][1,]

strava_data <- R.matlab::readMat("strava_data.mat")
strava_data <- strava_data[[1]]

mass <- seq(50,100,0.1)
errorPlot(weightEstimation(strava_data, mass, mae), "MAE", "W")
errorPlot(weightEstimation(strava_data, mass, mse), "MSE", "W²")
errorPlot(weightEstimation(strava_data, mass, rmse), "RMSE", "W")
errorPlot(weightEstimation(strava_data, mass, mape), "MAPE", "%")