Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
NA 86 NA NA NA NA 12.9 NA NA 71 NA NA NA NA 12.8 NA NA NA 108 NA NA 8.2 NA NA NA 64 NA NA NA 6.4 NA NA NA NA 119 NA NA NA 12.6 NA NA NA 97 NA NA NA 14.8 NA NA NA 129 NA NA NA 13.3 NA NA NA NA 153 NA NA 11.1 NA NA 78 NA NA NA 8.3 NA NA NA 80 NA NA NA NA 11.4 NA NA NA 99 NA NA 9.3 NA NA NA NA NA 147 NA NA 12 NA 40 NA NA NA NA 9.2 NA NA NA 57 NA NA NA NA 11.3 NA NA NA 120 NA NA NA 11.9 NA NA 71 NA NA NA 8.8 NA NA NA 68 NA NA NA 9 NA NA NA NA 137 NA NA NA 13.8 NA NA 79 NA NA NA NA 10.8 NA NA NA 101 NA NA NA 11.7 NA NA NA 111 NA NA NA 10.9 NA NA NA NA 189 NA NA NA 16.1 NA 81 NA NA NA 9.9 NA NA NA 63 NA NA NA NA 11.5 NA NA 69 NA NA NA 8.3 NA NA NA 71 NA NA NA NA 11.7 NA NA 64 NA NA NA 9 NA NA NA 85 NA NA NA NA 10.8 NA NA 55 NA NA NA NA 10.4 NA NA 69 NA NA NA NA 12.7 NA NA NA 96 NA NA NA 11.8 NA NA NA 100 NA NA NA 13 NA NA 68 NA NA NA NA 10.8 NA NA 57 NA NA NA NA 12.3 NA NA NA 105 NA NA NA 11.3 NA NA 69 NA NA NA NA 11.6 NA NA 49 NA NA NA NA 10.9 NA NA 50 NA NA NA NA 12.1 NA NA 93 NA NA NA NA 13.3 NA NA 58 NA NA NA NA 10.1 NA NA 74 NA NA NA NA 14.3 NA NA NA 107 NA NA 9.3 NA NA NA 65 NA NA NA NA 12.5 NA NA 58 NA NA NA 7.6 NA NA NA 70 NA NA NA 9.2 NA NA NA 95 NA NA NA NA 14.5 NA NA NA 136 NA NA NA 12.3 NA NA 82 NA NA NA NA 12.6 NA NA NA 102 NA NA NA 13 NA NA 65 NA NA NA NA 12.6 NA NA 90 NA NA NA NA 13.2 NA NA 83 NA NA NA 7.7 NA NA NA 70 NA NA NA NA 10.5 NA NA 77 NA NA NA NA 10.9 NA 37 NA NA NA 4.3 NA NA NA NA 81 NA NA NA NA 10.3 NA NA 71 NA NA NA NA 11.4 NA 40 NA NA NA NA 5.6 NA NA 43 NA NA NA NA 8.8 NA NA 32 NA NA NA NA 9 NA NA NA 76 NA NA NA 9.6 NA NA 30 NA NA NA NA 6.4 NA NA
Names of X columns:
A. B. C. D. A' B' C' D'
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