Preperation for importing dataset without any problem ig

rm(list = ls()) # library(readr) library(pacman) p_load(tidyverse, lubridate, readxl, tidyquant) p_load(quantmod, PerformanceAnalytics) p_load(reshape2, TTR)

Change column names

colnames(Week5_dataset_final) <- c(“id”, “date”, “close”)

library(tidyr) library(dplyr) library(data.table)

wide bolgo

setDT(Week5_dataset_final)

Week5_dataset_final.wide <- dcast(Week5_dataset_final, date ~ id)

Zaswar orson n

setDT(Week5_dataset_final)

Week5_dataset_final.wide <- dcast( Week5_dataset_final, date ~ id, value.var = “close” )

str(Week5_dataset_final.wide)

Convert into time series data

Convert into xts format

Week5_dataset_final.xts <- xts(Week5_dataset_final.wide[,-1], order.by= as.Date(as.character(Week5_dataset_final.wide$date), format = ‘%Y%m%d’))