R для цикла является числовым - PullRequest
Новая
       44

R для цикла является числовым

0 голосов
/ 11 июня 2019

У меня есть «тестовый» фрейм данных с 3 компаниями (переменная ciknum) и годы, в которые каждая компания представляла годовые отчеты (год): 

   ciknum  fileyear
1   1408356 2013
2   1557255 2013
3   1557255 2014
4   1557255 2015
5   1557255 2016
6   1557255 2017
7   1555538 2014
8   1555538 2015
9   1555538 2016
10  1555538 2017

Эти два столбца являются числовыми: 

 > is.numeric(test$ciknum)
[1] TRUE
> is.numeric(test$fileyear)
[1] TRUE

Однако мне нужен цикл, который идет для каждой пары ciknum-fileyear для загрузки годовых отчетов с одного сайта. Этот цикл требует числовых переменных для успешной загрузки, и, похоже, я их не получаю. Например, при написании следующего цикла (либо для переменной фирма, либо для года, я получаю, что ни одна из них не является числовой переменной): 

    for (row in 1:nrow(test)){
      firm <- test[row, "ciknum"]      
      year <- test[row, "fileyear"]    
      my_getFilings(firm, '10-K', year, downl.permit="y") #download function over firm-year
    }
Error: Input year(s) is not numeric    #error repeated 10 times (one per row)

Я проверил, числова ли новая фирма и год, и есть смешанные доказательства. С одной стороны, похоже, что год читается как числовая переменная: 

> for (row in 1:nrow(test)){
+   firm <- test[row, "ciknum"]
+   year <- test[row, "fileyear"]
+   
+   if(year>2015) {
+     print(paste("I have this", firm, "showing a numeric", year))
+   }
+ }
[1] "I have this 1557255 showing a numeric 2016" #it only states years>2015. Seems it reads a number
[1] "I have this 1557255 showing a numeric 2017"
[1] "I have this 1555538 showing a numeric 2016"
[1] "I have this 1555538 showing a numeric 2017"

Но, с другой стороны, похоже, что нет: 

    > for (row in 1:nrow(test)){
+   firm <- test[row, "ciknum"]
+   year <- test[row, "fileyear"]
+   
+   if(!is.numeric(year)) {
+     print(paste("is not numeric"))
+   }
+ }
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"
[1] "is not numeric"

Может кто-нибудь сказать мне, являются ли они числовыми переменными или нет? Заблудился на этом ... Моя функция загрузки "my_getFilings", кажется, зависит от этого. Заранее спасибо.

...