portfolio <- read.csv("Portfolio.csv")
portfolio <- portfolio[, -1:-2]
monthly <- ts(portfolio, start = c(2007, 1), end = c(2009,1), frequency = 4)
plot(monthly, xlab = "Year (Quarterly)", ylab = "Stock Increase")

decompose_monthly <- decompose(monthly)
plot(decompose_monthly)