분류모형

library(mlbench)
data("BreastCancer")
data("Ionosphere")
library(caret)

## 필요한 패키지를 로딩중입니다: ggplot2

## 필요한 패키지를 로딩중입니다: lattice

library(dplyr)

## 
## 다음의 패키지를 부착합니다: 'dplyr'

## The following objects are masked from 'package:stats':
## 
##     filter, lag

## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union

glimpse(Ionosphere)

## Rows: 351
## Columns: 35
## $ V1    <fct> 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 0, 1, 0…
## $ V2    <fct> 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0…
## $ V3    <dbl> 0.99539, 1.00000, 1.00000, 1.00000, 1.00000, 0.02337, 0.97588, 0…
## $ V4    <dbl> -0.05889, -0.18829, -0.03365, -0.45161, -0.02401, -0.00592, -0.1…
## $ V5    <dbl> 0.85243, 0.93035, 1.00000, 1.00000, 0.94140, -0.09924, 0.94601, …
## $ V6    <dbl> 0.02306, -0.36156, 0.00485, 1.00000, 0.06531, -0.11949, -0.20800…
## $ V7    <dbl> 0.83398, -0.10868, 1.00000, 0.71216, 0.92106, -0.00763, 0.92806,…
## $ V8    <dbl> -0.37708, -0.93597, -0.12062, -1.00000, -0.23255, -0.11824, -0.2…
## $ V9    <dbl> 1.00000, 1.00000, 0.88965, 0.00000, 0.77152, 0.14706, 0.85996, 0…
## $ V10   <dbl> 0.03760, -0.04549, 0.01198, 0.00000, -0.16399, 0.06637, -0.27342…
## $ V11   <dbl> 0.85243, 0.50874, 0.73082, 0.00000, 0.52798, 0.03786, 0.79766, -…
## $ V12   <dbl> -0.17755, -0.67743, 0.05346, 0.00000, -0.20275, -0.06302, -0.479…
## $ V13   <dbl> 0.59755, 0.34432, 0.85443, 0.00000, 0.56409, 0.00000, 0.78225, 0…
## $ V14   <dbl> -0.44945, -0.69707, 0.00827, 0.00000, -0.00712, 0.00000, -0.5076…
## $ V15   <dbl> 0.60536, -0.51685, 0.54591, -1.00000, 0.34395, -0.04572, 0.74628…
## $ V16   <dbl> -0.38223, -0.97515, 0.00299, 0.14516, -0.27457, -0.15540, -0.614…
## $ V17   <dbl> 0.84356, 0.05499, 0.83775, 0.54094, 0.52940, -0.00343, 0.57945, …
## $ V18   <dbl> -0.38542, -0.62237, -0.13644, -0.39330, -0.21780, -0.10196, -0.6…
## $ V19   <dbl> 0.58212, 0.33109, 0.75535, -1.00000, 0.45107, -0.11575, 0.37852,…
## $ V20   <dbl> -0.32192, -1.00000, -0.08540, -0.54467, -0.17813, -0.05414, -0.7…
## $ V21   <dbl> 0.56971, -0.13151, 0.70887, -0.69975, 0.05982, 0.01838, 0.36324,…
## $ V22   <dbl> -0.29674, -0.45300, -0.27502, 1.00000, -0.35575, 0.03669, -0.765…
## $ V23   <dbl> 0.36946, -0.18056, 0.43385, 0.00000, 0.02309, 0.01519, 0.31898, …
## $ V24   <dbl> -0.47357, -0.35734, -0.12062, 0.00000, -0.52879, 0.00888, -0.797…
## $ V25   <dbl> 0.56811, -0.20332, 0.57528, 1.00000, 0.03286, 0.03513, 0.22792, …
## $ V26   <dbl> -0.51171, -0.26569, -0.40220, 0.90695, -0.65158, -0.01535, -0.81…
## $ V27   <dbl> 0.41078, -0.20468, 0.58984, 0.51613, 0.13290, -0.03240, 0.13659,…
## $ V28   <dbl> -0.46168, -0.18401, -0.22145, 1.00000, -0.53206, 0.09223, -0.825…
## $ V29   <dbl> 0.21266, -0.19040, 0.43100, 1.00000, 0.02431, -0.07859, 0.04606,…
## $ V30   <dbl> -0.34090, -0.11593, -0.17365, -0.20099, -0.62197, 0.00732, -0.82…
## $ V31   <dbl> 0.42267, -0.16626, 0.60436, 0.25682, -0.05707, 0.00000, -0.04262…
## $ V32   <dbl> -0.54487, -0.06288, -0.24180, 1.00000, -0.59573, 0.00000, -0.813…
## $ V33   <dbl> 0.18641, -0.13738, 0.56045, -0.32382, -0.04608, -0.00039, -0.138…
## $ V34   <dbl> -0.45300, -0.02447, -0.38238, 1.00000, -0.65697, 0.12011, -0.809…
## $ Class <fct> good, bad, good, bad, good, bad, good, bad, good, bad, good, bad…

idx<-createDataPartition(Ionosphere$Class,p=0.7,list=FALSE)
train<-Ionosphere[idx,]
test<-Ionosphere[-idx,]