Получите исторические финансовые коэффициенты в R?

Question

Привет, используя сказочный пакетный квантовый вызов. Есть ли способ получить исторические финансовые коэффициенты, скажем, соотношение PE или PEG? Я пробовал делать.

getSymbols(c("AAPL"),what=yahooQF("PEG Ratio")) 
AA = AAPL['2013-09-07::2013-10-20'] 
print (AA) 

Но это только печатает:

AAPL.Open AAPL.High AAPL.Low AAPL.Close AAPL.Volume AAPL.Adjusted 
2013-09-09 505.00 507.92 503.48  506.17 12167400  506.17 
2013-09-10 506.20 507.45 489.50  494.64 26542700  494.64 
.... 

Не уверен, если это возможно, но спасибо заранее.

Answer 1

У пакета qmao на R-Forge есть некоторые из этого - см., Например, функция.