Не могу создать data.frame с моими выводами из цикла - PullRequest
Новая
       8

Не могу создать data.frame с моими выводами из цикла

0 голосов
/ 07 ноября 2019

У меня есть цикл for, который возвращает 4 разных ответа, и это правильно, но когда я пытаюсь извлечь эти значения из моего data.frame, я получаю сообщение «Ошибка в [<-.data.frame (*tmp*, p, 1, value»). = 29.1520685791182): пропущенные значения недопустимы в подписанных назначениях фреймов данных "

Цель: я пытаюсь получить значения, которые напечатаны 29, 485, -14, 12, в data.frame 

library("xts")
library("quantmod")
library("fredr")


Tesla <- getSymbols("TSLA", from=as.Date("2014-11-03"),to=as.Date("2019-11-03"))
Amazon <- getSymbols("AMZN", from=as.Date("2014-11-03"),to=as.Date("2019-11-03"))
Equinor <- getSymbols("EQNR",from="2014-11-03",to="2019-11-03")
FTSE100 <- getSymbols("^FTSE",from="2014-11-03",to="2019-11-03")

dftest <- data.frame(merge(TSLA$TSLA.Close, AMZN$AMZN.Close, EQNR$EQNR.Close,FTSE$FTSE.Close))

df <- data.frame(matrix(nrow = 1, ncol = 4)) #The data.frame where i want my returned values from print(pros) to be in.
colnames(dfProsent) <- c("TESLA", "AMAZON","EQUINOR","FTSE")

for (p in dftest) {
  pros <- ((last(as.numeric(p)))-(first(as.numeric(p))))/(first(as.numeric(p)))*100
  print(pros) #this print out 29, 485,-14,12
df[p,1] <- pros #the problem
}
...