Homework

install.packages(“pacman”)

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(WEEEEEEK_5_final_dataset) <- c(“id”, “date”, “close”)

convert from long to wide format

library(data.table)

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

library(tidyr) library(dplyr)

Wide bolgo

setDT(WEEEEEEK_5_final_dataset)

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

To fix the problem

setDT(Week5datasetfinal)

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

str(Week5_dataset_final.wide)

Convert into time series data

Convert into xts format

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