Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
ATTLS ATTLS Perceived Stress Scale Center for Epidemiologic Studies Depression Scale Connected Separate Happiness Depression 41 38 14 12 39 32 18 11 30 35 11 14 31 33 12 12 34 37 16 21 35 29 18 12 39 31 14 22 34 36 14 11 36 35 15 10 37 38 15 13 38 31 17 10 36 34 19 8 38 35 10 15 39 38 16 14 33 37 18 10 32 33 14 14 36 32 14 14 38 38 17 11 39 38 14 10 32 32 16 13 32 33 18 7 31 31 11 14 39 38 14 12 37 39 12 14 39 32 17 11 41 32 9 9 36 35 16 11 33 37 14 15 33 33 15 14 34 33 11 13 31 28 16 9 27 32 13 15 37 31 17 10 34 37 15 11 34 30 14 13 32 33 16 8 29 31 9 20 36 33 15 12 29 31 17 10 35 33 13 10 37 32 15 9 34 33 16 14 38 32 16 8 35 33 12 14 38 28 12 11 37 35 11 13 38 39 15 9 33 34 15 11 36 38 17 15 38 32 13 11 32 38 16 10 32 30 14 14 32 33 11 18 34 38 12 14 32 32 12 11 37 32 15 12 39 34 16 13 29 34 15 9 37 36 12 10 35 34 12 15 30 28 8 20 38 34 13 12 34 35 11 12 31 35 14 14 34 31 15 13 35 37 10 11 36 35 11 17 30 27 12 12 39 40 15 13 35 37 15 14 38 36 14 13 31 38 16 15 34 39 15 13 38 41 15 10 34 27 13 11 39 30 12 19 37 37 17 13 34 31 13 17 28 31 15 13 37 27 13 9 33 36 15 11 37 38 16 10 35 37 15 9 37 33 16 12 32 34 15 12 33 31 14 13 38 39 15 13 33 34 14 12 29 32 13 15 33 33 7 22 31 36 17 13 36 32 13 15 35 41 15 13 32 28 14 15 29 30 13 10 39 36 16 11 37 35 12 16 35 31 14 11 37 34 17 11 32 36 15 10 38 36 17 10 37 35 12 16 36 37 16 12 32 28 11 11 33 39 15 16 40 32 9 19 38 35 16 11 41 39 15 16 36 35 10 15 43 42 10 24 30 34 15 14 31 33 11 15 32 41 13 11 32 33 14 15 37 34 18 12 37 32 16 10 33 40 14 14 34 40 14 13 33 35 14 9 38 36 14 15 33 37 12 15 31 27 14 14 38 39 15 11 37 38 15 8 33 31 15 11 31 33 13 11 39 32 17 8 44 39 17 10 33 36 19 11 35 33 15 13 32 33 13 11 28 32 9 20 40 37 15 10 27 30 15 15 37 38 15 12 32 29 16 14 28 22 11 23 34 35 14 14 30 35 11 16 35 34 15 11 31 35 13 12 32 34 15 10 30 34 16 14 30 35 14 12 31 23 15 12 40 31 16 11 32 27 16 12 36 36 11 13 32 31 12 11 35 32 9 19 38 39 16 12 42 37 13 17 34 38 16 9 35 39 12 12 35 34 9 19 33 31 13 18 36 32 13 15 32 37 14 14 33 36 19 11 34 32 13 9 32 35 12 18 34 36 13 16
Names of X columns:
Connected, Separate, Happiness, Depression
Factor 1
Factor 2
Type of test to use
(?)
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 != 'McNemar Chi-Squared') { 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) a<-table.element(a, 'Chi Square Statistic', 1, TRUE) a<-table.element(a, round(cst$statistic, digits=2), 1,FALSE) a<-table.row.end(a) if(!simulate.p.value){ 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