Macd <- function(data,fast=12,slow=26,difnm=9){
      n <- fast
      m <- slow
      x <- difnm
      total <- m+x
      Dl <- (Hi(data)+Lo(data)+2*Cl(data))/4
      nEMA <- runMean(Dl,n=n)
      mEMA <- runMean(Dl,n=m)
      DIF <- nEMA-mEMA
      MACD <- runMean(DIF,n=x)
      nEMA <- nEMA[total]
      mEMA <- mEMA[total]
      MACD <- MACD[total]
      DIF <- DIF[total]
      Date <- as.character(index(data[total,]))
      all <- data.frame(Date,MACD,DIF,stringsAsFactors = FALSE)
      
      for(w in c((total+1):nrow(data))){
        todayCl <- as.numeric(Dl[w]) 
        nEMA=(nEMA*(n-1)+todayCl*2)/(n+1)
        mEMA=(mEMA*(m-1)+todayCl*2)/(m+1)
        DIF=nEMA-mEMA
        MACD=(MACD*(x-1)+DIF*2)/(x+1)
        Date <- as.character(index(data[w,]))
        all <- rbind(all,c(Date,MACD,DIF))
      }
      all$Date <- as.Date(all$Date)
      all$MACD <- round(as.numeric(all$MACD),2)
      all$DIF <- round(as.numeric(all$DIF),2)
      all$OSC <- all$DIF-all$MACD
      all <- as.xts(read.zoo(all))
      
    }

#--------------------------------------
    K <- "K>80" %in% input$checkstrategy
    M <- "M<50" %in% input$checkstrategy


if(K&M){
         cond1 <- kd$k>80&macd$m<50
      plstrategy(data2,cond1)
      
    }
    else if(K){
     cond1 <- kd$k>80
      plstrategy(data2,cond1)
    }
    else if(M){
     cond1 <- macd$m<50
      plstrategy(data2,cond1)
    }