Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
149 21 NA NA 148 22 NA NA NA NA NA NA 159 20 NA NA NA NA NA NA NA NA NA NA NA NA 176 19 54 18 91 15 NA NA 124 21 NA NA 121 15 NA NA NA NA 221 21 NA NA NA NA NA NA NA NA 92 20 NA NA 153 16 94 16 156 19 NA NA NA NA NA NA NA NA 151 10 NA NA NA NA 157 26 NA NA NA NA NA NA NA NA NA NA 187 23 NA NA NA NA 105 16 NA NA NA NA NA NA NA NA NA NA NA NA NA NA 128 21 NA NA 49 8 NA NA NA NA 162 23 99 21 NA NA 186 19 NA NA 183 18 NA NA NA NA 104 19 177 25 126 19 76 22 NA NA 139 14 162 16 NA NA 159 20 74 12 NA NA 96 22 116 12 87 22 NA NA 127 10 NA NA NA NA 74 22 91 24 133 18 NA NA NA NA NA NA 95 22 NA NA 121 20 NA NA NA NA NA NA NA NA NA NA 102 19 NA NA NA NA NA NA 102 11 100 8 94 15 52 18 98 18 118 19 NA NA NA NA NA NA NA NA NA NA 109 30 NA NA NA NA 158 23 NA NA 67 18 147 18 NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA NA 165 19 NA NA NA NA NA NA NA NA NA NA NA NA 150 22 NA NA NA NA NA NA NA NA NA NA 149 23 145 20 NA NA 109 16 132 7 NA NA 169 17 NA NA NA NA 172 19 NA NA NA NA NA NA 113 23 115 27 78 18 118 28 NA NA 173 19 NA NA 162 27 NA NA 122 28 NA NA 100 21 82 22 NA NA 115 20 NA NA NA NA NA NA NA NA NA NA 158 16 NA NA 49 20 90 23 121 18 NA NA 104 18 NA NA 110 25 108 25 113 25 115 24 NA NA NA NA NA NA NA NA 111 13 77 17 NA NA 151 25 89 4 78 16 110 21 NA NA NA NA 141 17 117 20 NA NA 63 22 NA NA NA NA 131 0 NA NA NA NA NA NA 107 12 77 18 154 24 NA NA NA NA NA NA NA NA 112 29 143 18 49 15 NA NA NA NA 167 19 56 22 137 16 NA NA NA NA 149 19 168 4 140 20 NA NA NA NA NA NA NA NA 48 22 NA NA NA NA NA NA 109 24 63 17 NA NA 162 27 NA NA NA NA 164 17 NA NA 126 22 NA NA NA NA 83 19 NA NA 81 15 NA NA 110 26 NA NA 93 22 104 18 NA NA NA NA 88 27 NA NA NA NA 99 17 NA NA 76 19 109 13 NA NA NA NA 120 16 NA NA 91 2 108 26 NA NA 117 23 119 22
Names of X columns:
LFM_vrouwen numeracy_vrouwen
Factor 1
Factor 2
Type of test to use
(?)
Pearson Chi-Squared
Pearson Chi-Squared
Exact Pearson Chi-Squared by Simulation
McNemar Chi-Squared
Fisher Exact Test
Chart options
Title:
R Code
library(vcd) cat1 <- as.numeric(par1) # cat2<- as.numeric(par2) # simulate.p.value=FALSE if (par3 == 'Exact Pearson Chi-Squared by Simulation') simulate.p.value=TRUE x <- t(x) (z <- array(unlist(x),dim=c(length(x[,1]),length(x[1,])))) (table1 <- table(z[,cat1],z[,cat2])) (V1<-dimnames(y)[[1]][cat1]) (V2<-dimnames(y)[[1]][cat2]) bitmap(file='pic1.png') assoc(ftable(z[,cat1],z[,cat2],row.vars=1,dnn=c(V1,V2)),shade=T) dev.off() load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Tabulation of Results',ncol(table1)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste(V1,' x ', V2),ncol(table1)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, ' ', 1,TRUE) for(nc in 1:ncol(table1)){ a<-table.element(a, colnames(table1)[nc], 1, TRUE) } a<-table.row.end(a) for(nr in 1:nrow(table1) ){ a<-table.element(a, rownames(table1)[nr], 1, TRUE) for(nc in 1:ncol(table1) ){ a<-table.element(a, table1[nr, nc], 1, FALSE) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') (cst<-chisq.test(table1, simulate.p.value=simulate.p.value) ) if (par3 == 'McNemar Chi-Squared') { (cst <- mcnemar.test(table1)) } if (par3=='Fisher Exact Test') { (cst <- fisher.test(table1)) } if ((par3 != 'McNemar Chi-Squared') & (par3 != 'Fisher Exact Test')) { a<-table.start() a<-table.row.start(a) a<-table.element(a,'Tabulation of Expected Results',ncol(table1)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,paste(V1,' x ', V2),ncol(table1)+1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, ' ', 1,TRUE) for(nc in 1:ncol(table1)){ a<-table.element(a, colnames(table1)[nc], 1, TRUE) } a<-table.row.end(a) for(nr in 1:nrow(table1) ){ a<-table.element(a, rownames(table1)[nr], 1, TRUE) for(nc in 1:ncol(table1) ){ a<-table.element(a, round(cst$expected[nr, nc], digits=2), 1, FALSE) } a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab') } a<-table.start() a<-table.row.start(a) a<-table.element(a,'Statistical Results',2,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a, cst$method, 2,TRUE) a<-table.row.end(a) a<-table.row.start(a) if (par3=='Pearson Chi-Squared') a<-table.element(a, 'Pearson Chi Square Statistic', 1, TRUE) if (par3=='Exact Pearson Chi-Squared by Simulation') a<-table.element(a, 'Exact Pearson Chi Square Statistic', 1, TRUE) if (par3=='McNemar Chi-Squared') a<-table.element(a, 'McNemar Chi Square Statistic', 1, TRUE) if (par3=='Fisher Exact Test') a<-table.element(a, 'Odds Ratio', 1, TRUE) if (par3=='Fisher Exact Test') { if ((ncol(table1) == 2) & (nrow(table1) == 2)) { a<-table.element(a, round(cst$estimate, digits=2), 1,FALSE) } else { a<-table.element(a, '--', 1,FALSE) } } else { a<-table.element(a, round(cst$statistic, digits=2), 1,FALSE) } a<-table.row.end(a) if(!simulate.p.value){ if(par3!='Fisher Exact Test') { a<-table.row.start(a) a<-table.element(a, 'Degrees of Freedom', 1, TRUE) a<-table.element(a, cst$parameter, 1,FALSE) a<-table.row.end(a) } } a<-table.row.start(a) a<-table.element(a, 'P value', 1, TRUE) a<-table.element(a, round(cst$p.value, digits=2), 1,FALSE) a<-table.row.end(a) a<-table.end(a) table.save(a,file='mytable2.tab')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation