# Еникеев Эмиль ПМ18-2

#install.packages("xlsx")
library(xlsx)
setwd("O:\\Факультет ПМиИТ\\ПМ18-2\\Еникеев Эмиль Маратович - 184153") #установка текущей папки
getwd() #Вывод текущей папки
dir() #Вывод содержимого текущей папки


tabl <- read.xlsx("Билет98.xlsx", sheetIndex = 1,
                  encoding = "UTF-8", header = T, startRow = 1)
#tabl
#x<-tabl[,2]
#x
#a = tabl$Цена[1]
#a

vector = c(0)
for(i in seq(from=2, to=nrow(tabl))){
  q = (tabl$Цена[i] - tabl$Цена[i-1])/tabl$Цена[i-1]
  vector = union(vector, c(q))
}
#vector

tabl["Доходность"] = vector
#tabl

vector2 = c()
for(i in seq(from=1, to=nrow(tabl))){
  q = log(tabl$Объем)
  vector2 = union(vector2, c(q))
}
#vector2
tabl["Логарифм_Объем"] = vector2
tabl

plot(tabl[,1],tabl[,4], lty="solid",lwd=1,type="l",main="Динамика Доходности",
     col="black", sub = "Еникеев Эмиль", xlab="начиная с 01.01.2010",
     ylab="Цена")