Sampling #

training 一危磯 30%, test 一危磯ゼ 70%
library(caret)
partition_idx <- createDataPartition (x$危覿, p=0.3)$Resample1
training <- x[partition_idx, ]
test <- x[-partition_idx, ]

library(caret)
tmp <- downSample(subset(x, select = -危覿), factor(dataset$危覿))
tmp <- upSample(subset(x, select = -危覿), factor(dataset$危覿))
  • downSample:一危郁 讓曙 襷豢. 襯 れ, 譟=1000覈, 危=100覈企 downSample 譟=100覈, 危=100覈朱 襷豢.
  • upSample:一危郁 襷 讓曙 襷豢.