data <- read.csv(file.choose())
View(data)
col_names <- c("Scrip Name", "Date", "Open", "High",
"Low", "Close", "Tick", "Volume")
colnames(data) <- col_names
View(head(data))
data$Date <- NULL
data$Tick <- NULL
#shifting n rows up of a given variable
shift <- function(x, n) {
c(x[-(seq(n))], rep(NA, n))
}
data$shifted <- shift(data$Close, 1)
tail(data)
#remove NA observations
data <- na.omit(data)
write.csv(data, "data.csv")
#Installing the package
install.packages("h2o")
#loading the library
library(h2o)
#Initializing the Virtual Machine using all the threads (-1) and 16gb of memory
h2o.init(nthreads = -1, max_mem_size = "16g")
describe(data)
h2o.importFile("data.csv")
h2o.importFile(file.choose())
h2o.describe(data) # getting the error here as "Error in chk.H2OFrame(x) : must be an H2OFrame
"
Я запускаю этот код с некоторыми данными фондовой биржи в формате Excel для примерно 500 акций и хочу запустить код, чтобы сделать некоторый прогноз, но на последнем этапе «h20.describe (data)» я получаю указанное выше значение ошибка, и мне нужно решение для нее.