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



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


str(teszt)
table(teszt)

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


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

?chisq.test()

chisq.test(table(teszt))
chisq.test(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))





modellunkkezdet<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound + Leather))

modellunkkezdet

summary(modellunkkezdet)

modellunkkezdet2<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound))

modellunkkezdet2


str(kruiser)

kruiser$Cylinder<-factor(kruiser$Cylinder)

str(kruiser)

kruiser$Cylinder

modellunkkezdet3<-with(kruiser,lm(Price ~ Mileage + Cylinder + Sound + Leather))

summary(modellunkkezdet3)