library(kknn)
> data(miete)
> dim(miete)
[1] 1082   17
> library(sampling)
> n=round(2/3*nrow(miete)/5)
> n
[1] 144
> sub_train=strata(miete,stratanames = "nmkat",size=rep(n,5),method="srswor")
> head(ub_train)
Error in head(ub_train) : object 'ub_train' not found
> head(sub_train)
   nmkat ID_unit      Prob Stratum
1      3       1 0.6857143       1
8      3       8 0.6857143       1
20     3      20 0.6857143       1
27     3      27 0.6857143       1
28     3      28 0.6857143       1
52     3      52 0.6857143       1
> data_train=getdata(miete[,c(-1,-3,-12)],sub_train$ID_unit)
> data_test=getdata(miete[,c(-1,-3,-12)],-sub_train$ID_unit)
> dim(data_train);dim(data_test) #分别显示训练集、测试集的维度
[1] 392883     14
[1]  0 14
>