%[frame=single]table(wine_data $ Ta

%[frame=single]
table(wine_data $ Target)
wine

ผลลัพธ์ (ไทย) 1:

% [เฟรม =เดียว]table(wine_data $ Target)ไวน์ <-wine_datanames(wine)library(DMwR)แบบฟอร์ม < - สูตร (เป้าหมายว่า)SMOTEData < - ก็ตบ (แบบฟอร์ม ไวน์ perc.over = 600k = 5, perc.under = 100)ตาราง (เป้าหมาย SMOTEData $)write.csv (SMOTEData ไฟล์ = "SMOTE_WINE.csv"row.names =เท็จ)

ผลลัพธ์ (ไทย) 2:

% [กรอบเดียว =]
ตาราง (wine_data $ เป้าหมาย)
ไวน์ <- wine_data
ชื่อ (ไวน์)
ห้องสมุด (DMwR)
รูปแบบ <- สูตร (เป้าหมาย ~.)
SMOTEData <- ประหาร (แบบ, ไวน์, perc.over = 600,
K = 5 perc.under = 100)
ตาราง (SMOTEData $ เป้าหมาย)
write.csv (SMOTEData ไฟล์ = "SMOTE_WINE.csv"
row.names = false)

ผลลัพธ์ (ไทย) 3:

กรอบ = % [ เดี่ยว ]โต๊ะ ( wine_data $ เป้าหมาย )ไวน์ < - wine_dataชื่อ ( ไวน์ )ห้องสมุด ( dmwr )รูปแบบ < - สูตร ( ˜ เป้าหมาย )smotedata < - ตี ( แบบฟอร์ม , ไวน์ , perc.over = 600 ,K = 5 , perc.under = 100 )โต๊ะ ( smotedata $ เป้าหมาย )เขียน smotedata . CSV ( ไฟล์ = " smote_wine . CSV "row.names = เท็จ )