フライトデータセットのKNNエラー

Question

RでKNNを行う方法を学習しようとしていて、パッケージnycflights13のフライトデータセットで練習しています。

library(nycflights13) 
library(class) 


deparr <- na.omit(flights[c(4, 7, 16)]) 

classframe <- deparr[3] 

flights %>% ggvis(~dep_time, ~arr_time, fill = ~distance) %>% layer_points() 

set.seed(1234) 

ind <- sample(2, nrow(deparr), replace=TRUE, prob=c(0.67, 0.33)) 

flights.training <- deparr[ind==1, 1:2] 
flights.test <- deparr[ind==2, 1:2] 
flights.trainlabels <- deparr[ind==1, 3] 
flights.testlabels <- deparr[ind==2, 3] 

predictions <- knn(train = flights.training, test = flights.test, cl = flights.trainlabels[,1], k = 3) 

Answer 1

ここで電車を分割コードです：私は「電車」と「クラス」は、異なる長さを持っている

私のコードは

を言って以下のコードを実行しているエラーを取得しますパーセンテージに基づくテストセット。 2つのサブセットを別の方法で分割したい場合は、これから作業することができますが、それが機能することが証明されます。

deparr <- na.omit(flights[c(4, 7, 16)]) 
set.seed(1234) 

# prepare to divide up the full dataset into two groups, 65%/35% 
n <- nrow(deparr) 
train_n <- round(0.65 * n) 

# randomize our data 
deparr <- deparr[sample(n)] 

# split up the actual data. We will use these as inputs to knn 
flights.train <- deparr[1:train_n, ] 
flights.test <- deparr[(train_n + 1):n, ] 

# target variable, $distance, is in column 3, so exclude from train and test 
predictions <- knn(train = flights.train[, 1:2], test = flights.test[, 1:2], cl = flights.train$distance, k = 10) 

これが実行され、私は結果として取得する：あなたがやっていることをやっているなぜあなたは

> str(predictions) 
Factor w/ 209 levels "80","94","96",..: 121 159 18 54 207 18 94 55 159 136 ...