fuggetlenseg

data = data.frame(
szoke_haj =c(42,17),
barna_haj =c(28,89),
fekte_haj =c(3,21)
)

data = cbind(data,0)
data = rbind(data,0)

row.names(data) <- c("kek_szem","barna_szem", "sum")
colnames(data) <- c("szoke_haj" ,"barna_haj" ,"fekte_haj", "sum" )

j=1
while(j < ncol(data)){
    i=1
    sum = 0

    while(i < nrow(data)){
    sum = sum + data[i,j]
    i = i + 1
    }

    data[i,j] = sum
    j = j + 1
}


#oszlopok sorok csere, i j csere
j=1
while(j < nrow(data)+1){
    i=1
    sum = 0

    while(i < ncol(data)){
    sum = sum + data[j,i]
    i = i + 1
    }

    data[j,i] = sum
    j = j + 1
}


szumma = 0

for (i in 1:nrow(data))
  for (j in 1:ncol(data)-1)
    if(j != 0 && i !=3 ){

      valami = data[i,ncol(data)] * data[nrow(data),j] / sum
      szumma = szumma + (((data[i,j]) - valami)^2 / valami)

    }