#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")