library(mgcv)
library(lubridate)
library(dplyr)
library(TSA)
df <- read.csv("AU.csv", head = TRUE)
price <- ts(df$Close, start = 2016, freq = 52)
price.train <- ts(price[1:291], freq = 52)
price.test <- ts(price[291:298], freq = 52)
plot(price.train, main = "Time Series Plot of Weekly Gold Price", ylab = "Temperature")
1/8
, acf(price.train, lag.max = 52 * 4, main = "ACF Plot of Weekly Gold Price")
2/8
library(lubridate)
library(dplyr)
library(TSA)
df <- read.csv("AU.csv", head = TRUE)
price <- ts(df$Close, start = 2016, freq = 52)
price.train <- ts(price[1:291], freq = 52)
price.test <- ts(price[291:298], freq = 52)
plot(price.train, main = "Time Series Plot of Weekly Gold Price", ylab = "Temperature")
1/8
, acf(price.train, lag.max = 52 * 4, main = "ACF Plot of Weekly Gold Price")
2/8
