Feature Selection

Library



In [1]:

    
source("https://raw.githubusercontent.com/eogasawara/mylibrary/master/myPreprocessing.R")
source("https://raw.githubusercontent.com/eogasawara/mylibrary/master/myFeature.R")
data(iris)









    



Loading required package: caret
Warning message:
"package 'caret' was built under R version 3.5.1"Loading required package: lattice
Loading required package: ggplot2
Warning message:
"package 'ggplot2' was built under R version 3.5.1"Loading required package: MASS
Loading required package: DMwR
Warning message:
"package 'DMwR' was built under R version 3.5.1"Loading required package: grid
Loading required package: dplyr
Warning message:
"package 'dplyr' was built under R version 3.5.1"
Attaching package: 'dplyr'

The following object is masked from 'package:MASS':

    select

The following objects are masked from 'package:stats':

    filter, lag

The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union

Loading required package: glmnet
Warning message:
"package 'glmnet' was built under R version 3.5.1"Loading required package: Matrix
Loading required package: foreach
Warning message:
"package 'foreach' was built under R version 3.5.1"Loaded glmnet 2.0-16

Loading required package: leaps
Warning message:
"package 'leaps' was built under R version 3.5.1"Loading required package: FSelector
Warning message:
"package 'FSelector' was built under R version 3.5.1"Loading required package: doBy
Warning message:
"package 'doBy' was built under R version 3.5.1"

Lasso



In [2]:

    
myfeature <- fs.lasso(iris, "Species")
print(myfeature$features)









    



[1] "Sepal.Width"  "Petal.Length" "Petal.Width"

FSS



In [3]:

    
myfeature <- fs.fss(iris, "Species")
print(myfeature$features)









    



[1] "Sepal.Length" "Petal.Length" "Petal.Width"

CFS



In [4]:

    
myfeature <- fs.cfs(iris, "Species")
print(myfeature$features)









    



[1] "Petal.Length" "Petal.Width"

IG



In [5]:

    
options(repr.plot.width=3, repr.plot.height=3)
myfeature <- fs.ig(iris, "Species")
print(myfeature$features)









    



[1] "Petal.Width"  "Petal.Length"

Relief



In [6]:

    
options(repr.plot.width=3, repr.plot.height=3)
myfeature <- fs.relief(iris, "Species")
print(myfeature$features)









    



[1] "Petal.Length" "Petal.Width"



In [ ]: