Estoy usando elquantmodpaquete. Tengo un vector de tickers como este:

c("AAPL","GOOG","IBM","GS","AMZN","GE")

y quiero crear una función para calcular el margen EBIT de una acción (= ingreso operativo / ingreso total). Entonces, para un stock dado, uso el siguiente fragmento de código que solo funciona para GE (siempre que se agregue ".f" al final del ticker):

require(quantmod)
getFinancials("GE",period="A")
ebit.margin <- function(stock.ticker.f){
   return(stock.ticker$IS$A["Operating Income",]/stock.ticker$IS$A["Total Revenue",])
}
ebit.margin("GE")

Me gustaría generalizar esta función para usar luego elapplyfunción. Hay varias dificultades:

al aplicar elquantmod::getFinancialPara un indicador, los estados financieros de las acciones se guardan en el entorno predeterminado. losviewFinancialluego tiene que ser utilizado para obtener e imprimir los estados financieros. Necesito una forma de acceder a los estados financieros directamente en la funciónLa función de argumento de la función es una cadena como "GE.f" pero sería más conveniente ingresar directamente el ticker ("GE"). He tratado de usar elpaste0 ygsub para obtener una cadena como "GE.f" no funciona porque "GE.f" no pertenece a lafinancials clase.

En resumen, estoy un poco perdido ...