library(rEDM)
setwd("C:/Users/bnolan/Google Drive/AFIT/PhD Research/Validation/R/home")
speed_brake_rpm_throttle <- read.csv("speed_brake_rpm_throttle_home.csv")
View(speed_brake_rpm_throttle)
View(speed_brake_rpm_throttle)
ts_speed <- speed_brake_rpm_throttle$speed
lib_speed <- c(1, 0.5*length(ts_speed))
pred_speed <- c(0.5*length(ts_speed)+1, length(ts_speed))
ts_rpm <- speed_brake_rpm_throttle$rpm
lib_rpm <- c(1, 0.5*length(ts_rpm))
pred_rpm <- c(0.5*length(ts_rpm)+1, length(ts_rpm))
ts_brake <- speed_brake_rpm_throttle$brake
lib_brake <- c(1, 0.5*length(ts_brake))
pred_brake <- c(0.5*length(ts_brake)+1, length(ts_brake))
ts_throttle <- speed_brake_rpm_throttle$throttle
lib_throttle <- c(1, 0.5*length(ts_throttle))
pred_throttle <- c(0.5*length(ts_throttle)+1, length(ts_throttle))
simplex_output_throttle <- simplex(ts_throttle, lib_throttle, pred_throttle, silent = TRUE)
simplex_output_speed <- simplex(ts_speed, lib_speed, pred_speed, silent = TRUE)
simplex_output_rpm <- simplex(ts_rpm, lib_rpm, pred_rpm, silent = TRUE)
simplex_output_brake <- simplex(ts_brake, lib_brake, pred_brake, silent = TRUE)
save(simplex_output_throttle, file = "simplex_output_throttle.Rda")
save(simplex_output_speed, file = "simplex_output_speed.Rda")
save(simplex_output_rpm, file = "simplex_output_rpm.Rda")
save(simplex_output_brake, file = "simplex_output_brake.Rda")