teszt<-read.table("mcnemar.csv",header=FALSE,sep=";")

str(teszt)

teszt[,1]<-as.numeric(teszt[,1])
teszt[,2]<-as.numeric(teszt[,2])


str(teszt)


mean(teszt[,1])
mean(teszt[,2])


mcnemar.test(table(teszt[,1],teszt[,2]))




#Így kész�?tettem a kuiper.xls beolvasását. Kimentettem csv-be, majd a vesszőt pontra
# cseréltem szövegszerkesztővel, aztán futtattam a lenti scriptet

teszt<-read.table("kuipermod.csv",header=TRUE,sep=";",colClasses=c("numeric","numeric", rep("character",4),"numeric","numeric","numeric",rep("character",15)))
head(teszt)
str(teszt)
kruiser<-teszt[1:12]
head(kruiser)
save(kruiser,file="kruiser.RData")

# Az órai anyag itt folytatódik

load("kuiper.RData")
head(kruiser)


chisq.test(kruiser$Sound,kruiser$Leather)

str(kruiser)

?cor.test

with(kruiser, cor.test(Price,Mileage))