#zadanie 3
met02<-qda(c, data=wyn, subset=indeks)
wx1<-list(met02)
wyn<-list(NA)
wyn2=wyn[-indeks,]
wx2<-predict(met02,wyn2)
x<-table(wx2$class,h)
ACC<-(x[1,1]+x[2,2])/sum(x)
wyn<-x