क्वांटमोड पैकेज में तकनीकी संकेतक कैसे बनाएं

Question

मैं आर के लिए नौसिखिया हूं और मुझे तकनीकी संकेतक के निर्माण के साथ कुछ समस्याएं आ रही हैं। अधिक विशेष रूप से, मैं एक सूचक, Fibonacci बनाना चाहता हूं, जिसे chartSeries में जोड़ा जाएगा और इसमें 5 क्षैतिज रेखाएं होंगी। जिस डेटा के साथ मैं काम कर रहा हूं वह स्टॉक की समाप्ति कीमत है। तो जिस ग्राफ को मैं बनाना चाहता हूं, उसके पास अधिकतम समापन मूल्य के बिंदु पर एक क्षैतिज रेखा होगी, न्यूनतम समापन मूल्य के बिंदु में एक क्षैतिज रेखा और पिछले दो के बीच तीन क्षैतिज रेखाएं होंगी।

Fibonacci <- function(x) { 
x <- try.xts(x, error = as.matrix) 
n <- nrow(x) 
min <- runMin(x,n=n) 
max <- runMax(x,n=n) 
high <- 0.62*(max-min) + min 
middle <- 0.5*(max-min) + min 
low <- 0.38*(max-min) + min 
res <-cbind(na.spline(min),na.spline(max),na.spline(high), 
      na.spline(middle),na.spline(low)) 
colnames(res)<- c("min","max","high","middle","low") 
reclass (res, x) 
} 

मैं भी निम्न कोड मौजूदा chartSeries साजिश करने के लिए तकनीकी सूचक जोड़ने के लिए लिखा है: कोड मैं आदेश एक शेयर के समापन की कीमतों के एक समय श्रृंखला के पांच मूल्यों लेने के लिए लिखा था निम्नलिखित है quantmod पैकेज की:

addFibonacci<- function(col = "red",overlay = TRUE){ 
stopifnot("package:TTR" %in% search() || require("TTR", quietly = TRUE)) 
lchob <- quantmod:::get.current.chob() 
x <- as.matrix(lchob@xdata) 
chobTA <- new("chobTA") 
chobTA@new <- !overlay 
if (!is.OHLC(x)) 
    stop("Fibonacci requires HL series") 
else { 
fibon <- Fibonacci(Cl(x)) 
} 
chobTA@TA.values <- fibon[lchob@xsubset] 
chobTA@call <- match.call() 
chobTA@on <- 1 
chobTA@params <- list(xrange = lchob@xrange, colors = lchob@colors, 
    color.vol = lchob@color.vol, multi.col = lchob@multi.col, 
    spacing = lchob@spacing, width = lchob@width, bp = lchob@bp, 
    x.labels = lchob@x.labels, time.scale = lchob@time.scale, 
    col = col) 
if (is.null(sys.call(-1))) { 
    TA <- lchob@passed.args$TA 
    lchob@passed.args$TA <- c(TA, chobTA) 
    lchob@windows <- lchob@windows + ifelse(chobTA@new, 1, 
     0) 
    chartSeries.chob <- quantmod:::chartSeries.chob 
    do.call(chartSeries.chob, list(lchob)) 
    invisible(chobTA) 
} 
else { 
    return(chobTA) 
} 
} 

समस्या यह है कि सूचक चार्ट में जुड़ते नहीं है और मैं भी निम्न त्रुटि संदेश हो रही है है:

Error in do.call(x@passed.args$TA[[j]]@name, list(x@passed.args$TA[[j]])) : 
    'what' must be a character string or a function 

क्या मैं गलत कर रहा हूँ के लिए कोई विचार?

Answer 1

खरोंच से add* समारोह लेखन के बजाय, आप बस newTA इस्तेमाल कर सकते हैं:

> library(quantmod) 
> getSymbols("AAPL") 
[1] "AAPL" 
> addFibonacci <- newTA(Fibonacci,on=1) 
> chartSeries(AAPL, TA="addFibonacci()") 
Error in addFibonacci() : could not find function "get.current.chob" 

हम्म, जाहिरा तौर पर get.current.chob निर्यात नहीं किया है ... कि ठीक है, हम सिर्फ समारोह अपने आप को बदल सकते हैं। addFibonacci <- newTA(Fibonacci,on=1) कॉल करने के बाद, addFibonacci के रूप में परिभाषित किया गया है:

addFibonacci <- function (..., on = 1, legend = "auto") 
{ 
    #lchob <- get.current.chob() 
    lchob <- quantmod:::get.current.chob() 
    x <- as.matrix(lchob@xdata) 
    x <- Fibonacci(x = x) 
    yrange <- NULL 
    chobTA <- new("chobTA") 
    if (NCOL(x) == 1) { 
     chobTA@TA.values <- x[lchob@xsubset] 
    } 
    else chobTA@TA.values <- x[lchob@xsubset, ] 
    chobTA@name <- "chartTA" 
    if (any(is.na(on))) { 
     chobTA@new <- TRUE 
    } 
    else { 
     chobTA@new <- FALSE 
     chobTA@on <- on 
    } 
    chobTA@call <- match.call() 
    legend.name <- gsub("^add", "", deparse(match.call())) 
    gpars <- c(list(...), list())[unique(names(c(list(), list(...))))] 
    chobTA@params <- list(xrange = lchob@xrange, yrange = yrange, 
     colors = lchob@colors, color.vol = lchob@color.vol, multi.col = lchob@multi.col, 
     spacing = lchob@spacing, width = lchob@width, bp = lchob@bp, 
     x.labels = lchob@x.labels, time.scale = lchob@time.scale, 
     isLogical = is.logical(x), legend = legend, legend.name = legend.name, 
     pars = list(gpars)) 
    if (is.null(sys.call(-1))) { 
     TA <- lchob@passed.args$TA 
     lchob@passed.args$TA <- c(TA, chobTA) 
     lchob@windows <- lchob@windows + ifelse(chobTA@new, 1, 
      0) 
     chartSeries.chob <- chartSeries.chob 
     do.call("chartSeries.chob", list(lchob)) 
     invisible(chobTA) 
    } 
    else { 
     return(chobTA) 
    } 
} 

और आप देख सकते हैं, जहां मैं quantmod:::get.current.chob() साथ get.current.chob() करने के लिए कॉल बदल दिया। अब यह काम करना चाहिए।

chartSeries(AAPL, TA="addFibonacci()") 

सफलता!