Untitled

#读取数据

library(data.table)

## Warning: 程辑包'data.table'是用R版本4.1.3 来建造的

setwd("D:/R")
v <- "BABA"
DATA <- list() 
for(i in v){ 
    suppressWarnings( 
    DATA[[i]] <- fread( paste0(i, ".csv"), sep = ",")) 
    DATA[[i]] <- (DATA[[i]])[ order(DATA[[i]][["Date"]], decreasing = FALSE)] 
}

library(lattice)
wireframe(obj ~ n1*shThresh, data = OPTIM,
          xlab = "n1", ylab = "shThresh",
          main = "Long-Only MACD Exhaustive Optimization",
          drape = TRUE,
          colorkey = TRUE,
          screen = list(z = 15, x = -60)
)

levelplot(obj ~ n1*shThresh, data = OPTIM,
          xlab = "n1", ylab = "shThresh",
          main = "Long-Only MACD Exhaustive Optimization"
)