Hi, I myself defined such a indicator: 


bottom <- function(s, n, w) {
  rl <- Linear(Cl(s),n)
  atr <- ATR(s,n)$atr
  ll <- rl+atr*w
  anchor <- 0.0
  for (i in 1:length(ll)) {
    if (!is.na(ll[i,1]) & ll[i,1]>anchor) {
      anchor <- as.numeric(ll[i,1])
    } else if (!is.na(ll[i,1])) {
      ll[i,1] <- anchor
    }
  }
  return (ll)
}‍



and add it like below:


add.indicator(strategy=strategy.st, name="bottom",
                            arguments=list(s=quote(mktdata),n=13,w=.weight),
                            label="low")‍



then I add a prameter set like below


add.distribution(strategy=strategy.st,
                 paramset.label = 'bottom',
                 component.type = 'indicator',
                 component.label = 'low',
                 variable = list(w=.lowPara ),
                 label = 'AT'
)‍



originally, I set the indicator's parameter "w" as .weight=-6, but I want to test a set values .lowPara=c‍(-5,-4.5,-4,-3.5,-3)
but when I tried apply.paramset  ‍several times, I am sure that the w always is -6, it can't  be chaned to values in .lowPara respectively, what are the possible‍ easons? is that because the package don't support self defined indicators or other reasons?‍
Thanks in advance for your answers.


------------------
Andy Lu
	[[alternative HTML version deleted]]

