# Еникеев Эмиль ПМ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=113)){
  q = (tabl$Цена[i] - tabl$Цена[i-1])/tabl$Цена[i-1]
  vector = union(vector, c(q))
}
vector

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