#Her setter vi inn dataene om maŋŋel fra Tabealla 2: Materiála maid leat viežžan teakstačoakkáldagain
mannel=matrix(c(2535,1231,90,261),byrow=TRUE,ncol=2)

#Nå skal vi skrive ut tabellen slik at vi kan se den
print("maŋŋel+ aviissain ja čáppagirjjálašvuođas")
print(mannel)

#Nå skal vi kjøre og skrive ut chi-kvadrat test:
test=chisq.test(mannel)
print(test)

#Nå skal vi telle opp alle tallene i tabellen og skrive ut summen:
print("Dette er summen på maŋŋel+-tabellen:")
print(sum(mannel))

#Nå skal vi regne ut effekt-størrelsen. Vi gjør det ved å ta kvadratrot til chi-kvadrat verdien/summen
#The effect size is the square root of the chi-square value divided by the sum of the table
cramer=sqrt(test$statistic/sum(mannel))
print(cramer)
print("Dette er effekt-størrelsen")


#Her setter vi inn dataene om bruk av pre- vs. postposisjon i skjønnlitteratur i de tre geografiske områder
geo=matrix(c(97,44,63,93,35,232),byrow=TRUE,ncol=2)

#Nå skal vi skrive ut tabellen slik at vi kan se den
print("Njealji ambiposišuvnna logut posišuvnna mielde golmma geográfalaš guovllus")
print(geo)

#Nå skal vi kjøre og skrive ut chi-kvadrat test:
test=chisq.test(geo)
print(test)

#Nå skal vi telle opp alle tallene i tabellen og skrive ut summen:
print("Dette er summen på geo-tabellen:")
print(sum(geo))

#Nå skal vi regne ut effekt-størrelsen. Vi gjør det ved å ta kvadratrot til chi-kvadrat verdien/summen
#The effect size is the square root of the chi-square value divided by the sum of the table
cramer=sqrt(test$statistic/sum(geo))
print(cramer)
print("Dette er effekt-størrelsen")

#Her setter vi inn dataene om miehtá fra Tabealla 3: Ambiposišuvnnat juohkin mearkkašumi mielde aviissain
miehta=matrix(c(105,5,16,0,12,95),byrow=TRUE,ncol=2)

#Nå skal vi skrive ut tabellen slik at vi kan se den
print("miehtá: juohkin mearkkašumi mielde aviissain")
print(miehta)

#Nå skal vi kjøre og skrive ut chi-kvadrat test:
test=chisq.test(miehta)
print(test)

#Nå skal vi telle opp alle tallene i tabellen og skrive ut summen:
print("Dette er summen på miehta-tabellen:")
print(sum(miehta))

#Nå skal vi regne ut effekt-størrelsen. Vi gjør det ved å ta kvadratrot til chi-kvadrat verdien/summen
#The effect size is the square root of the chi-square value divided by the sum of the table
cramer=sqrt(test$statistic/sum(miehta))
print(cramer)
print("Dette er effekt-størrelsen")

#Her setter vi inn dataene om čađa fra Tabealla 3: Ambiposišuvnnat juohkin mearkkašumi mielde aviissain
cada=matrix(c(0,40,38,78,56,37),byrow=TRUE,ncol=2)

#Nå skal vi skrive ut tabellen slik at vi kan se den
print("čađa: juohkin mearkkašumi mielde aviissain")
print(cada)

#Nå skal vi kjøre og skrive ut chi-kvadrat test:
test=chisq.test(cada)
print(test)

#Nå skal vi telle opp alle tallene i tabellen og skrive ut summen:
print("Dette er summen på čađa-tabellen:")
print(sum(cada))

#Nå skal vi regne ut effekt-størrelsen. Vi gjør det ved å ta kvadratrot til chi-kvadrat verdien/summen
#The effect size is the square root of the chi-square value divided by the sum of the table
cramer=sqrt(test$statistic/sum(cada))
print(cramer)
print("Dette er effekt-størrelsen")

#Her setter vi inn dataene om rastá fra Tabealla 3: Ambiposišuvnnat juohkin mearkkašumi mielde aviissain
rasta=matrix(c(23,44,77,47),byrow=TRUE,ncol=2)

#Nå skal vi skrive ut tabellen slik at vi kan se den
print("rastá: juohkin mearkkašumi mielde aviissain")
print(rasta)

#Nå skal vi kjøre og skrive ut chi-kvadrat test:
test=chisq.test(rasta)
print(test)

#Nå skal vi telle opp alle tallene i tabellen og skrive ut summen:
print("Dette er summen på rastá-tabellen:")
print(sum(rasta))

#Nå skal vi regne ut effekt-størrelsen. Vi gjør det ved å ta kvadratrot til chi-kvadrat verdien/summen
#The effect size is the square root of the chi-square value divided by the sum of the table
cramer=sqrt(test$statistic/sum(rasta))
print(cramer)
print("Dette er effekt-størrelsen")