?read.table

lanyokfiuk<-read.table("lanyokfiuk2.txt",header=TRUE, sep=";")


View(lanyokfiuk)

lanyokfiuk

colnames(lanyokfiuk)

lanyokfiuk[3,]

table(lanyokfiuk$Nem,lanyokfiuk$Sikeresseg)

library(gmodels)

CrossTable(lanyokfiuk$Nem,lanyokfiuk$Sikeresseg, prop.r=TRUE, prop.c=FALSE,
                    prop.t=FALSE, prop.chisq=FALSE)

lanyokfiukA<-subset(lanyokfiuk,Hova=="A")

lanyokfiukA

lanyokfiukB<-subset(lanyokfiuk,Hova=="B")


CrossTable(lanyokfiukA$Nem,lanyokfiukA$Sikeresseg, prop.r=TRUE, prop.c=FALSE,
           prop.t=FALSE, prop.chisq=FALSE)

CrossTable(lanyokfiukB$Nem,lanyokfiukB$Sikeresseg, prop.r=TRUE, prop.c=FALSE,
           prop.t=FALSE, prop.chisq=FALSE)