VivoPower International PLC (VVPR)

  library(quantmod)
  library(xts)


  stocks <- c("VVPR")
#  stocks <- c("IAG.MC")


  stockEnv <- new.env()
  symbols <- getSymbols(stocks, src='yahoo', env=stockEnv)
  for (stock in ls(stockEnv)){
    chartSeries(stockEnv[[stock]], theme=chartTheme("white",up.col='gold'), name=stock, type="l",
                TA="
                    addVo();
                    addSAR(accel = c(0.02, 0.2), col = 'blue');
                    addWMA(10, col='green');
                    ", subset='last 50 days')    
  }