Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
'A' 'A' 'D' 'A' 'B' 'B' 'A' 'C' 'A' 'B' 'A' 'C' 'D' 'B' 'A' 'A' 'D' 'A' 'D' 'C' 'C' 'D' 'D' 'B' 'B' 'A' 'C' 'A' 'A' 'A' 'B' 'D' 'D' 'C' 'A' 'B' 'A' 'D' 'A' 'A' 'B' 'A' 'B' 'B' 'C' 'A' 'B' 'C' 'B' 'B' 'C' 'A' 'B' 'D' 'A' 'A' 'C' 'D' 'B' 'B' 'A' 'D' 'A' 'C' 'A' 'D' 'B' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'A' 'A' 'D' 'A' 'A' 'A' 'A' 'B' 'A' 'A' 'C' 'A' 'A' 'A' 'A' 'D' 'C' 'C' 'C' 'A' 'B' 'A' 'B' 'C' 'C' 'C' 'B' 'A' 'A' 'A' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'B' 'B' 'D' 'C' 'C' 'A' 'A' 'A' 'B' 'C' 'C' 'A' 'B' 'A' 'D' 'D' 'D' 'A' 'A' 'D' 'A' 'A' 'A' 'A' 'A' 'B' 'B' 'A' 'A' 'A' 'B' 'D' 'A' 'A' 'C' 'A' 'D' 'A' 'C' 'A' 'C' 'A' 'A' 'D' 'D' 'B' 'B' 'A' 'C' 'A' 'C' 'C' 'A' 'C' 'A' 'B' 'A' 'C' 'C' 'A' 'A' 'B' 'A' 'B' 'C' 'C' 'C' 'D' 'B' 'D' 'D' 'C' 'A' 'A' 'D' 'D' 'C' 'D' 'D' 'C' 'A' 'A' 'D' 'C' 'C' 'A' 'D' 'B' 'A' 'A' 'A' 'B' 'C' 'B' 'D' 'C' 'A' 'B' 'B' 'C' 'C' 'D' 'D' 'A' 'D' 'D' 'D' 'D' 'D' 'D' 'A' 'B' 'C' 'C' 'A' 'B' 'B' 'D' 'D' 'A' 'C' 'A' 'D' 'B' 'C' 'A' 'C' 'C' 'D' 'A' 'C' 'A' 'C' 'B' 'D' 'B' 'C' 'C' 'A' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'D' 'B' 'C' 'C' 'C' 'D' 'A' 'A' 'D' 'C' 'C' 'D' 'C' 'A' 'B' 'D' 'A' 'D' 'B' 'A' 'A' 'C' 'A' 'B' 'D' 'C' 'B' 'C' 'B' 'B' 'C' 'B' 'A' 'A' 'B' 'A' 'A' 'A' 'C' 'C' 'A' 'C' 'C' 'C' 'A' 'A' 'A' 'A' 'D' 'C' 'D' 'C' 'C' 'B' 'A' 'C' 'C' 'D' 'A' 'D' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'C' 'C' 'D' 'D' 'D' 'C' 'A' 'C' 'C' 'D' 'B' 'B' 'A' 'B' 'A' 'A' 'A' 'B' 'D' 'B' 'A' 'A' 'B' 'D' 'A' 'B' 'C' 'B' 'D' 'D' 'B' 'B' 'A' 'C' 'D' 'A' 'D' 'D' 'D' 'D' 'D' 'A' 'A' 'B' 'A' 'A' 'C' 'B' 'B' 'B' 'A' 'A' 'D' 'B' 'D' 'B' 'C' 'B' 'B' 'A' 'B' 'D' 'A' 'A' 'B' 'B' 'B' 'A' 'A' 'A' 'D' 'C' 'B' 'B' 'A' 'A' 'D' 'A' 'D' 'D' 'A' 'B' 'D' 'B' 'A' 'A' 'D' 'A' 'B' 'B' 'B' 'A' 'A' 'A' 'B' 'A' 'A' 'B' 'D' 'D' 'B' 'B' 'D' 'A' 'C' 'B' 'A' 'A' 'B' 'A' 'A' 'A' 'B' 'B' 'A' 'A' 'A' 'A' 'B' 'D' 'B' 'D' 'A' 'A' 'C' 'C' 'A' 'D' 'A' 'D' 'D' 'A' 'A' 'A' 'A' 'A' 'A' 'B' 'B' 'D' 'A' 'B' 'C' 'A' 'D' 'D' 'D' 'A' 'B' 'B' 'A' 'D' 'A' 'A' 'C' 'D' 'C' 'B' 'A' 'A' 'B' 'C' 'A' 'A' 'A' 'A' 'A' 'D' 'B' 'A' 'A' 'A' 'B' 'D' 'A' 'C' 'C' 'A' 'A' 'B' 'C' 'B' 'C' 'B' 'B' 'B' 'C' 'D' 'A' 'C' 'B' 'B' 'A' 'A' 'C' 'D' 'B' 'B' 'C' 'B' 'A' 'A' 'B' 'B' 'D' 'C' 'A' 'A' 'C' 'A' 'C' 'C' 'C' 'A' 'D' 'A' 'D' 'B' 'D' 'D' 'A' 'B' 'B' 'C' 'A' 'A' 'C' 'A' 'B' 'A' 'A' 'A' 'B' 'B' 'C' 'D' 'C' 'A' 'B' 'A' 'D' 'D' 'D' 'A' 'C' 'D' 'A' 'B' 'A' 'C' 'A' 'C' 'A' 'B' 'A' 'A' 'D' 'A' 'B' 'D' 'A' 'D' 'B' 'C' 'A' 'B' 'A' 'A' 'A' 'C' 'C' 'B' 'C' 'C' 'B' 'D' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'A' 'B' 'D' 'A' 'B' 'A' 'A' 'A' 'A' 'B' 'C' 'D' 'C' 'B' 'D' 'C' 'C' 'A' 'A' 'B' 'B' 'A' 'A' 'C' 'D' 'A' 'D' 'A' 'A' 'B' 'A' 'A' 'A' 'C' 'A' 'A' 'A' 'A' 'B' 'A' 'B' 'B' 'A' 'B' 'D' 'A' 'A' 'A' 'D' 'D' 'D' 'A' 'D' 'B' 'A' 'A' 'B' 'A' 'D' 'C' 'A' 'A' 'D' 'A' 'C' 'A' 'A' 'B' 'C' 'C' 'C' 'C' 'D' 'B' 'B' 'A' 'A' 'B' 'D' 'C' 'A' 'B' 'A' 'C' 'A' 'A' 'A' 'D' 'C' 'A' 'C' 'A' 'B' 'A' 'B' 'A' 'C' 'D' 'B' 'B' 'C' 'B' 'D' 'B' 'B' 'D' 'A' 'B' 'A' 'A' 'B' 'A' 'C' 'A' 'D' 'B' 'D' 'A' 'D' 'D' 'A' 'A' 'B' 'A' 'A' 'A' 'D' 'A' 'B' 'C' 'A' 'A' 'A' 'A' 'B' 'D' 'C' 'D' 'C' 'A' 'B' 'C' 'D' 'C' 'A' 'A' 'C' 'C' 'A' 'C' 'C' 'C' 'A' 'D' 'A' 'A' 'A' 'B' 'A' 'D' 'C' 'B' 'C' 'D' 'A' 'C' 'B' 'C' 'D' 'B' 'B' 'B' 'C' 'C' 'A' 'C' 'C' 'C' 'D' 'C' 'D' 'B' 'D' 'A' 'A' 'A' 'A' 'D' 'B' 'D' 'D' 'D' 'D' 'B' 'B' 'A' 'A' 'A' 'C' 'A' 'B' 'B' 'C' 'D' 'C' 'A' 'A' 'A' 'D' 'D' 'D' 'D' 'D' 'A' 'B' 'B' 'C' 'B' 'B' 'A' 'D' 'B' 'D' 'C' 'D' 'A' 'B' 'B' 'D' 'D' 'B' 'C' 'D' 'B' 'D' 'D' 'C' 'B' 'C' 'B' 'A' 'D' 'B' 'D' 'D' 'B' 'C' 'D' 'A' 'A' 'D' 'B' 'A' 'A' 'B' 'B' 'D' 'D' 'A' 'B' 'B' 'B' 'A' 'D' 'D' 'D' 'A' 'C' 'C' 'D' 'A' 'A' 'A' 'B' 'B' 'B' 'D' 'A' 'D' 'B' 'C' 'D' 'A' 'A' 'D' 'C' 'B' 'C' 'D' 'D' 'D' 'A' 'A' 'A' 'D' 'D' 'A' 'B' 'A' 'A' 'C' 'A' 'C' 'A' 'B' 'A' 'A' 'D' 'A' 'D' 'B' 'A' 'A' 'D' 'D' 'B' 'B' 'B' 'C' 'D' 'D' 'A' 'C' 'D' 'D' 'D' 'C' 'A' 'B' 'C' 'A' 'A' 'C' 'A' 'C' 'A' 'D' 'D' 'B' 'A' 'C' 'B' 'C' 'D' 'A' 'C' 'B' 'C' 'A' 'B' 'C' 'D' 'C' 'B' 'D' 'D' 'D' 'A' 'B' 'B' 'D' 'D' 'C' 'A'
Names of X columns:
Connected Separate Learning Software Happiness Depression
Column Containing First Factor Variable
Column Containing Second Factor Variable
Type of Chi Square test to use
(?)
Exact Pearson Chi Square by simulation
Pearson Chi-Square
Exact Pearson Chi Square by simulation
R Code
cat1 <- as.numeric(par1) # cat2<- as.numeric(par2) # simulate.p.value=FALSE if (par3 == 'Exact Pearson Chi Square 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]) 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) ) 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