Cómo utilizar datos personalizados para dibujar gráficos de líneas K y gráficos de indicadores personalizados

#En este ejemplo, fun1/fun2/fun3 son equivalentes a tres indicadores personalizados que puedes dibujar usando este método AddBBands(). indicador, se puede trazar junto con estos cuatro indicadores.

#El parámetro x puede ser un elemento virtual en el archivo de instancia, y fun1/fun2/fun3 puede manejar directamente variables globales. Así es como lo hago sin tener que pasar una gran matriz de parámetros.

fun1 <- function(x)

{

# Tu lógica

return(rt1.xts)

}

fun2 <- function(x)

{

# Tu lógica

return(rt2.

}

fun3 <- function(x)

{

# Tu lógica

return(rt3. xts )

}

ta1 < ;- newTA(FUN=fun1,on=1,...)

ta2 < ;- newTA(FUN= fun2 ,...)

ta3 <- newTA(FUN=fun3,...)

cn.theme <-Tema del gráfico (up.col = "red",dn . col = "verde")

chartSeries(rc.xts,name="",theme=cn.theme,TA=c(ta1(),ta2(),ta3()) ,addBBands( n =26)))