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.
p>}
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)))