Tesla Model Finder

HW_Knn <- K_nn
View(HW_Knn)
HW_Knn$Model_tesla <- as.factor(HW_Knn$Model_tesla)
str(HW_Knn)

Classes ‘tbl_df’, ‘tbl’ and 'data.frame':   497 obs. of  4 variables:
 $ Engine     : num  8 9 9 8 9 10 7 9 10 8 ...
 $ Heat       : num  3.5 3 3.2 3.1 3.6 3.9 3.4 3.4 2.9 3.1 ...
 $ Auto       : num  1 1 1 1 1 1 1 1 1 1 ...
 $ Model_tesla: Factor w/ 3 levels "model3","models",..: 1 1 1 1 1 1 1 1 1 1 ...

summary(HW_Knn)

     Engine           Heat            Auto       Model_tesla 
 Min.   : 3.00   Min.   :2.000   Min.   :1.000   model3:150  
 1st Qu.: 4.00   1st Qu.:3.000   1st Qu.:1.700   models:257  
 Median : 5.00   Median :3.600   Median :2.000   modelx: 90  
 Mean   : 5.71   Mean   :3.723   Mean   :2.341               
 3rd Qu.: 7.00   3rd Qu.:4.000   3rd Qu.:3.000               
 Max.   :10.00   Max.   :5.000   Max.   :7.000               

Data Normalling

data_normal2 <- function(x){((x-min(x))/(max(x)-min(x)))}
HW_knn_nor <- as.data.frame(lapply(HW_Knn[,-4],data_normal2))
HW_knn_nor

summary(HW_knn_nor)

     Engine            Heat             Auto       
 Min.   :0.0000   Min.   :0.0000   Min.   :0.0000  
 1st Qu.:0.1429   1st Qu.:0.3333   1st Qu.:0.1167  
 Median :0.2857   Median :0.5333   Median :0.1667  
 Mean   :0.3872   Mean   :0.5742   Mean   :0.2235  
 3rd Qu.:0.5714   3rd Qu.:0.6667   3rd Qu.:0.3333  
 Max.   :1.0000   Max.   :1.0000   Max.   :1.0000  

Machine Train & Test

Train <- HW_knn_nor[1:397,]
Test <- HW_knn_nor[398:497,]

Class - k_nn

Tesla

  [1] models models modelx models models models models models models model3 models models
 [13] models models models models models models models models models models models models
 [25] models models models models models models models models models models modelx models
 [37] modelx models models models models modelx models models models models models models
 [49] models models models models models models models models models modelx models models
 [61] models models models models modelx models models models models models models models
 [73] models models models models models modelx models models models models models models
 [85] models models models models models models models models models models models models
 [97] models modelx modelx models
Levels: model3 models modelx

t

        
Tesla    model3 models modelx
  model3      0      1      0
  models      0     90      0
  modelx      0      9      0

Graph

library(ggplot2)
qplot(Engine,Heat,data=HW_Knn,col=HW_Knn$Model_tesla)

qplot(Engine,Auto,data=HW_Knn,col=HW_Knn$Model_tesla)

qplot(Auto,Heat,data=HW_Knn,col=HW_Knn$Model_tesla)

3D graph

library(rgl)
with(HW_Knn,plot3d(Engine,Heat,Auto, type = "s",col = as.integer(Model_tesla)))

Accuracy

sum(diag(t)/sum(t))

[1] 0.9