Ошибка при извлечении данных тома из Yahoo

Question

Я пытаюсь извлечь том из yahoo, создав функцию (которую я могу позже применить к списку акций). RetrieveVolume <- function(x){ volume_Ind2 <- getQuote(x, src = "yahoo", "v") volume_Ind2 <- as.data.frame(volume_Ind2) volume_Ind2$Qposix <- NULL volume_Ind2 <- volume$sq...3.NCOL.sq.. }

Когда я пытаюсь, используя формулу для 0001.HK, например,

RetrieveVolume("0001.HK") 

я получаю следующее:

Error in RetrieveVolume("0001.HK") : object 'volume' not found 

ли вы какие-либо идеи, что я делаю неправильно, пожалуйста?

Answer 1

Есть 2 проблемы здесь:

• вы вызываете переменную volume, которая еще не определена.
• не возвращает никакого значения через функцию

быстрое решение проблемы будет

RetrieveVolume <- function(x){ 
    volume_Ind2 <- getQuote(x, src = "yahoo", "v") 
    return(volume_Ind2[,2]) 
} 

или более простым решением было бы

RetrieveVolume <- function(x){ 
    return(getQuote(x, what=yahooQF("Volume"))[,"Volume"]) 
}