15 lines
652 B
R
15 lines
652 B
R
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)")
|