We can show the iris data with this command, just type “iris” for show the all data
attach(iris)
?iris
## starting httpd help server ...
## done
getwd()
## [1] "E:/R ALGORITHM/UBCF(User-based collaborative filtering)"
iris<-read.csv("iris.csv",header=TRUE)
View(iris)
dim(iris)
## [1] 150 5
names(iris)
## [1] "sepal_length" "sepal_width" "petal_length" "petal_width"
## [5] "Species"
x = iris[,-5]
y = iris$Species
x = iris[,-5]
y = iris$Species
model = train(x,y,'nb',trControl=trainControl(method='cv',number=10))
## Loading required package: klaR
## Loading required package: MASS
predict(model$finalModel,x)
## $class
## [1] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [5] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [9] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [13] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [17] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [21] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [25] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [29] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [33] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [37] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [41] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [45] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [49] Iris-setosa Iris-setosa Iris-versicolor Iris-versicolor
## [53] Iris-virginica Iris-versicolor Iris-versicolor Iris-versicolor
## [57] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [61] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [65] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [69] Iris-versicolor Iris-versicolor Iris-virginica Iris-versicolor
## [73] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [77] Iris-versicolor Iris-virginica Iris-versicolor Iris-versicolor
## [81] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [85] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [89] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [93] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [97] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [101] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [105] Iris-virginica Iris-virginica Iris-versicolor Iris-virginica
## [109] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [113] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [117] Iris-virginica Iris-virginica Iris-virginica Iris-versicolor
## [121] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [125] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [129] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [133] Iris-virginica Iris-versicolor Iris-virginica Iris-virginica
## [137] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [141] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [145] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [149] Iris-virginica Iris-virginica
## Levels: Iris-setosa Iris-versicolor Iris-virginica
##
## $posterior
## Iris-setosa Iris-versicolor Iris-virginica
## [1,] 1.000000e+00 3.040952e-18 2.195433e-25
## [2,] 1.000000e+00 3.103487e-17 6.793932e-25
## [3,] 1.000000e+00 2.378432e-18 7.275582e-26
## [4,] 1.000000e+00 3.014504e-17 8.534632e-25
## [5,] 1.000000e+00 1.043952e-18 9.118256e-26
## [6,] 1.000000e+00 2.781516e-14 4.446245e-21
## [7,] 1.000000e+00 2.390580e-17 8.225483e-25
## [8,] 1.000000e+00 1.399630e-17 8.219134e-25
## [9,] 1.000000e+00 1.928849e-17 3.495371e-25
## [10,] 1.000000e+00 6.916803e-18 3.389061e-25
## [11,] 1.000000e+00 9.628309e-18 1.511068e-24
## [12,] 1.000000e+00 3.462778e-17 2.094119e-24
## [13,] 1.000000e+00 2.621333e-18 9.442078e-26
## [14,] 1.000000e+00 1.721758e-19 5.800255e-27
## [15,] 1.000000e+00 5.863924e-19 2.633242e-25
## [16,] 1.000000e+00 6.553002e-17 4.710518e-23
## [17,] 1.000000e+00 1.162099e-16 1.346665e-23
## [18,] 1.000000e+00 5.019220e-17 2.436137e-24
## [19,] 1.000000e+00 1.164558e-14 2.654676e-21
## [20,] 1.000000e+00 1.892111e-17 2.054706e-24
## [21,] 1.000000e+00 2.166846e-15 2.003324e-22
## [22,] 1.000000e+00 1.242440e-15 7.997024e-23
## [23,] 1.000000e+00 4.808549e-20 3.318718e-27
## [24,] 1.000000e+00 2.977928e-11 7.735286e-19
## [25,] 1.000000e+00 1.811778e-14 1.531167e-21
## [26,] 1.000000e+00 6.645331e-16 1.769488e-23
## [27,] 1.000000e+00 3.199726e-14 1.047480e-21
## [28,] 1.000000e+00 1.562894e-17 1.291191e-24
## [29,] 1.000000e+00 8.949558e-18 5.438737e-25
## [30,] 1.000000e+00 9.412159e-17 3.596863e-24
## [31,] 1.000000e+00 2.114938e-16 6.569331e-24
## [32,] 1.000000e+00 3.973577e-14 1.559661e-21
## [33,] 1.000000e+00 1.596146e-20 1.005125e-26
## [34,] 1.000000e+00 7.569219e-20 4.466620e-26
## [35,] 1.000000e+00 6.916803e-18 3.389061e-25
## [36,] 1.000000e+00 2.887227e-18 8.986995e-26
## [37,] 1.000000e+00 7.959120e-18 7.434437e-25
## [38,] 1.000000e+00 6.916803e-18 3.389061e-25
## [39,] 1.000000e+00 4.550214e-18 9.524164e-26
## [40,] 1.000000e+00 2.022152e-17 1.245657e-24
## [41,] 1.000000e+00 1.358177e-17 5.907996e-25
## [42,] 1.000000e+00 1.449620e-15 5.253363e-24
## [43,] 1.000000e+00 1.502059e-18 4.823288e-26
## [44,] 1.000000e+00 9.638153e-11 3.331883e-18
## [45,] 1.000000e+00 1.371197e-12 1.725475e-19
## [46,] 1.000000e+00 3.863514e-16 5.561042e-24
## [47,] 1.000000e+00 5.204428e-18 9.167469e-25
## [48,] 1.000000e+00 5.000141e-18 1.632436e-25
## [49,] 1.000000e+00 5.858544e-18 8.434771e-25
## [50,] 1.000000e+00 7.757021e-18 3.368918e-25
## [51,] 2.749223e-106 8.018653e-01 1.981347e-01
## [52,] 6.453858e-99 9.429283e-01 5.707168e-02
## [53,] 4.300352e-120 4.606254e-01 5.393746e-01
## [54,] 5.512758e-69 9.999621e-01 3.789964e-05
## [55,] 1.235057e-104 9.503408e-01 4.965916e-02
## [56,] 8.410160e-89 9.990013e-01 9.986538e-04
## [57,] 5.233589e-112 6.592515e-01 3.407485e-01
## [58,] 5.919007e-34 9.999997e-01 3.119517e-07
## [59,] 2.794695e-96 9.895385e-01 1.046153e-02
## [60,] 3.202801e-68 9.998928e-01 1.071638e-04
## [61,] 1.800695e-40 9.999997e-01 3.143915e-07
## [62,] 4.107506e-85 9.958564e-01 4.143617e-03
## [63,] 1.061100e-59 9.999925e-01 7.541274e-06
## [64,] 6.084732e-103 9.850868e-01 1.491324e-02
## [65,] 2.226704e-54 9.999700e-01 2.999393e-05
## [66,] 8.885233e-92 9.787587e-01 2.124125e-02
## [67,] 1.110838e-96 9.899311e-01 1.006893e-02
## [68,] 4.294493e-62 9.999799e-01 2.007314e-05
## [69,] 6.020484e-100 9.941996e-01 5.800427e-03
## [70,] 8.364840e-58 9.999913e-01 8.739959e-06
## [71,] 2.824842e-126 1.609361e-01 8.390639e-01
## [72,] 5.704523e-70 9.997743e-01 2.256698e-04
## [73,] 2.760859e-118 9.245812e-01 7.541876e-02
## [74,] 4.193575e-95 9.979398e-01 2.060233e-03
## [75,] 1.321027e-82 9.982736e-01 1.726437e-03
## [76,] 1.502386e-91 9.865372e-01 1.346281e-02
## [77,] 9.000508e-111 9.102260e-01 8.977398e-02
## [78,] 1.201969e-134 7.989607e-02 9.201039e-01
## [79,] 4.221962e-98 9.854957e-01 1.450433e-02
## [80,] 3.221224e-41 9.999984e-01 1.601574e-06
## [81,] 3.545203e-54 9.999955e-01 4.500139e-06
## [82,] 1.993326e-47 9.999983e-01 1.742560e-06
## [83,] 1.205122e-61 9.999664e-01 3.361987e-05
## [84,] 1.261048e-131 6.134355e-01 3.865645e-01
## [85,] 3.419504e-96 9.918297e-01 8.170260e-03
## [86,] 1.336526e-101 8.734107e-01 1.265893e-01
## [87,] 1.804796e-109 7.971795e-01 2.028205e-01
## [88,] 2.290009e-87 9.992978e-01 7.022084e-04
## [89,] 8.999227e-72 9.997620e-01 2.379898e-04
## [90,] 1.056924e-68 9.999461e-01 5.390514e-05
## [91,] 1.728891e-80 9.998510e-01 1.489819e-04
## [92,] 3.344983e-98 9.885399e-01 1.146006e-02
## [93,] 1.807481e-65 9.999591e-01 4.089540e-05
## [94,] 3.139466e-34 9.999997e-01 2.716264e-07
## [95,] 2.768990e-76 9.998034e-01 1.966331e-04
## [96,] 4.696334e-72 9.998236e-01 1.764463e-04
## [97,] 3.687624e-76 9.996692e-01 3.307548e-04
## [98,] 8.074184e-82 9.988601e-01 1.139915e-03
## [99,] 1.656125e-29 9.999997e-01 3.094739e-07
## [100,] 1.811035e-72 9.998204e-01 1.795726e-04
## [101,] 4.428832e-246 1.031032e-10 1.000000e+00
## [102,] 5.325591e-148 2.724406e-02 9.727559e-01
## [103,] 2.525769e-214 2.327488e-07 9.999998e-01
## [104,] 7.001653e-172 2.290954e-03 9.977090e-01
## [105,] 1.521547e-211 3.175384e-07 9.999997e-01
## [106,] 1.212188e-265 3.807455e-10 1.000000e+00
## [107,] 6.664301e-106 9.719885e-01 2.801154e-02
## [108,] 7.973698e-223 1.782047e-06 9.999982e-01
## [109,] 1.376559e-186 5.823191e-04 9.994177e-01
## [110,] 2.186000e-257 2.461662e-12 1.000000e+00
## [111,] 5.885615e-157 4.895235e-04 9.995105e-01
## [112,] 1.774459e-161 3.168643e-03 9.968314e-01
## [113,] 4.811912e-188 6.230821e-06 9.999938e-01
## [114,] 4.569204e-149 1.423414e-02 9.857659e-01
## [115,] 1.558282e-183 1.393247e-06 9.999986e-01
## [116,] 1.045376e-188 6.128385e-07 9.999994e-01
## [117,] 7.159338e-167 2.152843e-03 9.978472e-01
## [118,] 1.926417e-279 2.872996e-12 1.000000e+00
## [119,] 7.587528e-304 1.151469e-12 1.000000e+00
## [120,] 1.798233e-122 9.561626e-01 4.383739e-02
## [121,] 7.265671e-215 1.712166e-08 1.000000e+00
## [122,] 2.416360e-143 1.518718e-02 9.848128e-01
## [123,] 3.243377e-267 1.170872e-09 1.000000e+00
## [124,] 1.230340e-133 1.360432e-01 8.639568e-01
## [125,] 6.553191e-199 1.300512e-06 9.999987e-01
## [126,] 1.158453e-201 9.507989e-06 9.999905e-01
## [127,] 4.120045e-128 2.067703e-01 7.932297e-01
## [128,] 2.365207e-132 1.130589e-01 8.869411e-01
## [129,] 5.796441e-192 1.395719e-05 9.999860e-01
## [130,] 7.004799e-178 8.232518e-04 9.991767e-01
## [131,] 2.267160e-216 1.214497e-06 9.999988e-01
## [132,] 1.305838e-245 4.668891e-10 1.000000e+00
## [133,] 4.293040e-199 2.000316e-06 9.999980e-01
## [134,] 8.858593e-128 7.118948e-01 2.881052e-01
## [135,] 4.250222e-150 4.900992e-01 5.099008e-01
## [136,] 2.316641e-246 1.448050e-10 1.000000e+00
## [137,] 6.207666e-213 9.743357e-09 1.000000e+00
## [138,] 3.282691e-166 2.186989e-03 9.978130e-01
## [139,] 5.449084e-127 1.999894e-01 8.000106e-01
## [140,] 9.381326e-183 6.769126e-06 9.999932e-01
## [141,] 1.478346e-215 7.456220e-09 1.000000e+00
## [142,] 8.031579e-181 6.352663e-07 9.999994e-01
## [143,] 5.325591e-148 2.724406e-02 9.727559e-01
## [144,] 1.093067e-226 6.597015e-09 1.000000e+00
## [145,] 2.361558e-229 2.620636e-10 1.000000e+00
## [146,] 3.953963e-185 7.915543e-07 9.999992e-01
## [147,] 4.787981e-145 2.770575e-02 9.722942e-01
## [148,] 1.258313e-162 4.398402e-04 9.995602e-01
## [149,] 4.943796e-193 3.384156e-07 9.999997e-01
## [150,] 7.265276e-142 5.987903e-02 9.401210e-01
predict(model$finalModel,x)$class
## [1] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [5] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [9] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [13] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [17] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [21] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [25] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [29] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [33] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [37] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [41] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [45] Iris-setosa Iris-setosa Iris-setosa Iris-setosa
## [49] Iris-setosa Iris-setosa Iris-versicolor Iris-versicolor
## [53] Iris-virginica Iris-versicolor Iris-versicolor Iris-versicolor
## [57] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [61] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [65] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [69] Iris-versicolor Iris-versicolor Iris-virginica Iris-versicolor
## [73] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [77] Iris-versicolor Iris-virginica Iris-versicolor Iris-versicolor
## [81] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [85] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [89] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [93] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [97] Iris-versicolor Iris-versicolor Iris-versicolor Iris-versicolor
## [101] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [105] Iris-virginica Iris-virginica Iris-versicolor Iris-virginica
## [109] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [113] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [117] Iris-virginica Iris-virginica Iris-virginica Iris-versicolor
## [121] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [125] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [129] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [133] Iris-virginica Iris-versicolor Iris-virginica Iris-virginica
## [137] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [141] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [145] Iris-virginica Iris-virginica Iris-virginica Iris-virginica
## [149] Iris-virginica Iris-virginica
## Levels: Iris-setosa Iris-versicolor Iris-virginica
table(predict(model$finalModel,x)$class,y)
## y
## Iris-setosa Iris-versicolor Iris-virginica
## Iris-setosa 50 0 0
## Iris-versicolor 0 47 3
## Iris-virginica 0 3 47
naive_iris <- NaiveBayes(iris$Species ~ ., data = iris)
plot(naive_iris)
