26 lines
1.3 KiB
R
26 lines
1.3 KiB
R
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")
|