Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
NA NA 22 139 NA NA 18 158 23 128 12 224 NA NA 22 105 21 159 19 167 22 165 15 159 20 119 NA NA NA NA NA NA 20 163 NA NA 21 137 NA NA 16 153 23 148 NA NA 18 188 25 149 9 244 30 148 NA NA 23 150 NA NA NA NA NA NA 25 132 18 161 23 105 21 97 NA NA 14 131 22 166 NA NA 23 111 23 145 24 162 24 163 18 59 NA NA 15 109 19 90 NA NA 25 83 23 116 17 42 19 148 21 155 18 125 27 116 NA NA 13 138 NA NA 29 96 28 164 NA NA NA NA 19 202 NA NA 20 66 NA NA 19 214 17 188 NA NA NA NA NA NA NA NA 23 99 NA NA NA NA 24 108 NA NA NA NA 24 110 NA NA NA NA NA NA 20 97 NA NA 23 106 17 80 NA NA NA NA NA NA 21 74 20 114 20 140 NA NA 19 98 NA NA 26 126 23 98 24 95 21 110 21 70 NA NA 8 86 17 130 20 96 NA NA NA NA NA NA NA NA NA NA NA NA 19 99 23 48 22 50 21 150 25 154 NA NA 17 68 27 194 NA NA 23 159 NA NA NA NA 23 39 19 100 15 111 20 138 16 101 24 131 25 101 25 114 NA NA 19 114 16 111 19 75 19 82 23 121 21 32 NA NA 19 117 20 71 20 165 3 154 23 126 NA NA NA NA 15 120 NA NA NA NA 24 172 NA NA 24 114 24 156 NA NA 25 68 20 89 28 167 NA NA NA NA NA NA NA NA 21 87 NA NA 23 2 NA NA 22 49 NA NA 25 96 NA NA NA NA 28 100 NA NA 29 141 25 165 25 165 20 110 20 118 NA NA 20 146 NA NA NA NA NA NA 25 155 NA NA 19 147 NA NA NA NA NA NA NA NA 19 61 26 60 10 109 17 68 NA NA NA NA 30 73 NA NA NA NA NA NA NA NA 23 220 22 65 NA NA NA NA 20 122 NA NA 16 44 23 52 NA NA 18 101 25 42 23 152 NA NA NA NA NA NA 11 103 18 96 23 175 24 57 NA NA NA NA NA NA 29 110 16 131 NA NA NA NA NA NA 23 86 23 121 NA NA NA NA NA NA 24 88 20 168 4 94 24 51 NA NA 16 145 3 66 15 85 NA NA NA NA 20 102 NA NA 26 86 23 114 NA NA 20 119 NA NA 19 132 24 142 NA NA 23 94 NA NA 27 166 NA NA 22 64 NA NA NA NA 15 105 22 49 NA NA 10 95 20 102 NA NA 23 63 NA NA NA NA 27 117 23 57 NA NA 25 73 NA NA NA NA 20 105 NA NA NA NA
Names of X columns:
numeracy_mannen LFM_mannen
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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation