Я пытаюсь использовать функцию задержки в моем наборе данных, чтобы после нее можно было выполнить анализ нейронной сети, но у меня возникла проблема с выводом функции задержки
набор данных содержит 500 строк иВ 3 столбцах первый столбец является датой и содержит дату с октября 2011 года по октябрь 2013 года (500 данных). второй столбец - Wdy, он содержит слабые дни, последний столбец - доллар США и курс валюты.
library(readxl)
data <- read_excel("C:/Users/GTS/Desktop/ML project/ExchangeUSD.xlsx")
normalize <- function(x) {
return ((x - min(x)) / (max(x) - min(x)))
}
rate<- as.data.frame(lapply(data[3], normalize))
time_series <- ts(rate)
la <-lag(time_series)
Я ожидал иметь таблицу из 4 столбцов, первые 3 - это входные данные, а 4-й столбец - это прогнозируемый столбец , это образец данных
вывод выглядит так
Time Series:
Start = 0
End = 499
Frequency = 1
USD.EUR
[1,] 0.79099526
[2,] 0.85260664
[3,] 0.80900474
[4,] 0.78530806
[5,] 0.81184834
[6,] 0.76350711