# NOT RUN {
library(h2o)
h2o.init()
f1 <- "https://s3.amazonaws.com/h2o-public-test-data/bigdata/laptop/jira/TopBottomNRep4.csv.zip"
f2 <- "https://s3.amazonaws.com/h2o-public-test-data/smalldata/jira/Bottom20Per.csv.zip"
dataFrame <- h2o.importFile(f1)
bottomAnswer <- h2o.importFile(f2)
nPercent <- c(1, 2, 3, 4)
frameNames <- names(dataFrame)
nP <- nPercent[sample(1:length(nPercent), 1, replace = FALSE)]
colIndex <- sample(1:length(frameNames), 1, replace = FALSE)
h2o.bottomN(dataFrame, frameNames[colIndex], nP)
# }
Run the code above in your browser using DataLab