오버샘플링 기법

<SMOTE>

k값을 설정하여 1~k 정수값(균일분포)에서 랜덤하게 n을 설정한 후, 

n에서 가까운 데이터를 새롭게 선택하여 생성하는 방식으로 지정한 데이터에 도달할 때 까지 반복 

 

<R>

library(unbalanced)
library(tidyverse)

x <- table %>% filter(x==T) %>% summarise(x=n())
f <- table %>% filter(x==F) %>% summarise(y=n())
pv <- round(f/x)*100 - 100

table$x <- as.factor(table$x)

bc <- ubBalance(table[, c('length', 'weight')], 
		table$x, type='ubSMOTE', positive='TRUE',
		percOver=pv, percUnder=0, k=5)

bind_rows(bc$x %>% mutate(x=bc$y), 
table %>% filter(x=='FALSE') %>% select(length, weight, x)