indeks<-sample(1:8,8)
colnames(b)<- c("a","b","c","d","e","f","g")
c<-c("a","b","c","d","e","f","g")
wyn<-as.data.frame(b)
met05<-sknn(c, data=wyn, subset=indeks)
wyn1<-wyn[indeks,]
h<-head(wyn1,0)
wyn1<-wyn1[h=="B"|h=="E"|h=="F"]
predL3$posterior