demo()
demo(graphics)
library(rEDM)
devtools::install_github("ha0ye/rEDM")
library(devtools)
library(rEDM)
setwd("C:/Users/brent/Google Drive/AFIT/PhD Research/Validation/R")
speed_brake_rpm <- read.csv("speed_brake_rpm.csv")
ts_speed <- speed_brake_rpm$speed
lib_speed <- c(1, 0.5*length(ts_speed))
pred_speed <- c(0.5*length(ts_speed)+1, length(ts_speed))
simplex_output_speed <- simplex(ts_speed, lib_speed, pred_speed, E = 9, tp = 1:1000)
save(simplex_output_speed, file = "simplex_output_speed_E_9_tp_1-1000.Rda")
plot(simplex_output_speed$tp, simplex_output_speed$rho, type = "l", xlab = "Time to Prediction (tp)", ylab = "Forecast Skill (rho)")