Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data X:
42.50 60.00 83.00 37.50 40.00 63.00 30.00 80.00 94.50 52.50 40.00 58.00 52.50 40.00 73.00 47.50 40.00 69.25 37.50 60.00 74.25 25.00 40.00 58.75 50.00 60.00 92.25 30.00 40.00 79.50 35.00 80.00 99.50 35.00 20.00 54.75 40.00 80.00 92.25 50.00 60.00 75.50 27.50 60.00 75.00 30.00 40.00 56.75 47.50 60.00 79.75 40.00 60.00 90.50 35.00 80.00 73.00 45.00 60.00 88.00 40.00 80.00 76.75 40.00 40.00 67.00 45.00 60.00 69.50 47.50 60.00 76.25 35.00 80.00 64.50 40.00 60.00 80.50 18 60 87 43 60 66 32.50 60.00 60.75 20.00 20.00 63.00 52.50 20.00 51.75 42.50 60.00 77.00 47.50 40.00 48.00 30.00 60.00 91.00 37.50 40.00 68.00 45.00 40.00 74.25 42.50 40.00 70.50 35.00 40.00 74.50 47.50 60.00 81.25 40.00 40.00 68.00 47.50 60.00 78.25 45.00 40.00 73.00 50.00 20.00 63.25 42.50 20.00 59.50 45.00 80.00 96.00 37.50 60.00 83.00 45.00 20.00 56.00 40.00 40.00 66.00 40.00 60.00 79.25 45.00 20.00 55.75 25.00 60.00 78.25 35.00 20.00 38.25 27.50 20.00 76.00 10.00 40.00 78.00 42.50 40.00 65.50 45.00 20.00 59.25 40.00 40.00 62.00 50.00 40.00 57.00 15.00 60.00 74.50 27.50 80.00 99.50 30.00 40.00 56.00 25.00 60.00 73.00 40.00 40.00 73.75 37.50 40.00 75.75 42.50 60.00 84.25 52.50 40.00 39.25 40.00 60.00 63.00 47.50 60.00 39.25 45.00 20.00 54.75 50.00 40.00 61.75 30.00 40.00 49.75 42.50 60.00 74.50 35.00 60.00 83.25 25.00 40.00 67.00 7.50 40.00 69.75 40.00 60.00 78.50 35.00 60.00 84.25 47.50 20.00 54.75 30.00 60.00 76.75 45.00 40.00 61.00 37.50 40.00 75.50 42.50 60.00 88.75 32.50 60.00 76.00 42.50 60.00 83.25 40.00 20.00 40.50 35.00 20.00 21.75 47.50 20.00 63.50 35.00 80.00 90.50 17.50 80.00 89.25 32.50 80.00 85.50 32.50 80.00 95.50 42.50 80.00 80.50 20.00 40.00 66.75 42.50 80.00 92.00 40.00 20.00 73.50 42.50 60.00 53.00 35.00 60.00 63.00 42.50 80.00 81.00 37.50 60.00 68.00 42.50 60.00 70.50 35.00 60.00 72.50 50.00 80.00 80.75 37.50 60.00 73.75 25.00 60.00 74.00 40.00 40.00 62.25 32.50 40.00 63.25 40.00 60.00 86.75 45.00 20.00 43.00 15.00 80.00 92.00 2.50 60.00 80.50 32.50 80.00 88.75 22.50 80.00 76.25 40.00 80.00 88.25 37.50 80.00 78.00 47.50 80.00 81.75 32.50 80.00 88.25 30.00 60.00 68.00 40.00 80.00 58.50 25.00 60.00 71.75 2.50 80.00 73.75 37.50 80.00 91.25 45.00 80.00 49.50 47.50 60.00 80.00 40.00 80.00 91.25 35.00 80.00 84.25 47.50 80.00 94.75 20.00 60.00 78.00 30.00 80.00 85.50 40.00 20.00 80.50 27.50 80.00 77.00 37.50 80.00 77.00 35.00 60.00 66.75 40.00 80.00 95.50 35.00 20.00 38.00 35.00 80.00 95.50 30.00 80.00 73.75 50.00 80.00 96.25 12.50 80.00 68.00 40.00 80.00 63.75 42.50 20.00 49.25 30.00 80.00 76.25 45.00 60.00 59.50 27.50 80.00 81.75 45.00 60.00 62.00 42.50 80.00 71.75 45.00 80.00 90.75 50.00 80.00 88.75 50.00 60.00 61.75 37.50 80.00 78.00 37.50 80.00 96.50 30.00 80.00 85.50 50.00 60.00 92.00 50.00 80.00 95.25 25.00 80.00 92.75 22.50 80.00 95.50 37.50 80.00 64.25 27.50 40.00 47.50 47.50 20.00 22.50 32.50 80.00 68.00 32.50 40.00 58.50 50.00 60.00 66.75 22.50 80.00 88.75 22.50 80.00 88.00 2.50 60.00 70.25 22.50 80.00 80.50 27.50 80.00 66.75 42.50 80.00 59.25 27.50 40.00 59.75 25.00 80.00 66.00 17.50 40.00 38.50 25.00 60.00 73.00
Names of X columns:
Examenscore Peerscore Totaalscore
check.keys
(?)
TRUE
TRUE
FALSE
R Code
library(psych) par1b <- T if(par1=='FALSE') par1b <- F z <- t(y) (r <- alpha(z,check.keys=par1b)) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Cronbach Alpha and Related Statistics',5,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Items',1,TRUE) a<-table.element(a,'Cronbach Alpha',1,TRUE) a<-table.element(a,'Std. Alpha',1,TRUE) a<-table.element(a,'G6(smc)',1,TRUE) a<-table.element(a,'Average R',1,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'All itmes',header=TRUE) a<-table.element(a,round(r$total['raw_alpha'],4)) a<-table.element(a,round(r$total['std.alpha'],4)) a<-table.element(a,round(r$total['G6(smc)'],4)) a<-table.element(a,round(r$total['average_r'],4)) a<-table.row.end(a) n = length(z[1,]) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,paste(colnames(z)[i],' excluded',sep=''),header=TRUE) a<-table.element(a,round(r$alpha.drop[i,'raw_alpha'],4)) a<-table.element(a,round(r$alpha.drop[i,'std.alpha'],4)) a<-table.element(a,round(r$alpha.drop[i,'G6(smc)'],4)) a<-table.element(a,round(r$alpha.drop[i,'average_r'],4)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.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