Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
4 18 20 13 7 12 4 21 5 17 6 22 23 14 6 2 18 10 13 6 18 13 19 12 8 6 17 11 7 24 6 10 13 7 3 8 5 11 11 8 2 5 20 4 24 14 6 4 4 11 7 8 17 22 20 2 18 12 24 9 2 6 4 5 7 6 21 19 11 23 1 18 14 17 18 20 19 10 14 11 22 16 13 18 21 13 20 20 19 21 23 19 12 13 11 21 13 13 18 5 18 14 18 20 9 16 11 10 14 2 15 14 20 15 19 5 18 21 12 13 15 11 19 19 22 22 17 19 15 18 18 18 24 17 16 4 21 20 21 23 4 17 21 17 19 10 21 3 6 16 16 22 18 19 9 4 5 23 21 1 19 7 17 18 18 5 12 5 5 7 7 21 6 3 20 19 14 22 11 21 17 20 14 21 5 14 19 3 20 11 18 19 19 19 17 8 17 15 9 10 17 16 18 16 21 9 8 13 11 10 16 17 8 16 11 4 12 19 8 9 6 20 12 13 7 13 10 20 20 17 8 17 14 12 18 9 8 16 18 21 13 16 15 12 20 14 11 7 16 15 8 14 15 14 8 12 13 8 17 13 8 16 16 8 19 19 18 11 22 18 8 16 18 20 20 16 9 9 18 17 23 15 9 15 17 19 16 21 18 23 8 20 8 8 12 7 20 9 17 18 8 21 11 8 23 9 10 18 9 9 23 20 1 17 12 20 17 19 6 19 12 11 16 8 1 17 20 15 14 12 20 19 16 11 23 11 9 15 17 23 15 18 21 9 13 14 7 10 15 16 13 9 20 22 8 9 16 19 8 9 10 7 17 8 12 14 19 9 9 12 12 9 15 9 13 8 9 10 11 10 15 9 13 9 11 8 19 12 14 3 8 19 19 14 20 15 14 8 8 9 14 15 17 14 9 20 19 17 13 24 9 17 19 9 19 9 12 17 13 18 9 23 13 13 9 18 12 13 18 12 7 19 18 9 13 9 23 12 10 16 19 14 13 10 8 7 14 18 8 11 19 17 10 20 18 16 8 17 22 8 16 10 13 20 6 17 9 14 19 13 17 19 9 19 9 17 20 17 14 9 19 11 17 23 13 22 22 10 8 16 21 3 4 18 6 20 18 17 19 9 8 19 14 8 17 12 17 18 15 19 10 8 23 15 8 16 14 20 22 8 19 18 18 7 18 8 12 9 18 7 18 18 21 24 15 9 15 9 15 12 23 18 15 19 11 13 24 21 18 11 8 20 13 13 18 9 1 13 16 14 20 17 15 13 18 22 12 11 17 7 18 17 17 9 8 15 7 18 16 12 17 8 9 9 14 10 8 17 9 19 17 17 12 14 16 18 20 13 19 24 16 17 16 10 15 8 18 12 14 19 11 15 19 16 23 12 11 18 19 9 13 8 9 15 19 18 11 13 10 7 18 9 16 21 11 21 10 19 8 19 4 1 13 16 11 10 9 21 3 14 19 12 22 18 19 11 19 2 17 3 2 11 20 3 5 3 18 7 15 4 18 19 13 12 7 13 17 15 18 15 24 5 10 15 1 14 16 11 11 8 17 18 12 13 11 17 13 16 24 20 22 9 22 17 15 21 1 13 19 14 12 20 12 18 20 18 19 7 21 7 5 22 6 22 12 20 19 15 5 10 13 1 17 17 16 4 15 24 17 1 13 24 1 19 12 24 12 18 18 9 12 22 19 3 13 20 16 19 19 15 10 18 17 1 16 9 17 8 12 19 10 17 4 10 14 19 17 9 17 3 9 9 12 8 21 9 17 21 16 8 17 17 18 14 10 9 21 17 8 15 16 19 19 8 9 8 18 13 15 18 8 19 17 22 19 11 9 19 18 10 8 20 22 8 2 18 19 16 18 7 8 16 9 18 20 12 22 19 6 9 16 18 14 13 14 21 15 9 16 19 13 18 13 10 18 17 24 9 12 16 9 9 18 9 23 19 18 8 9 18 14 9 18 9 11 16 14 8 15 8 8 7 16 15 10 20 20 18 11 13 16 14 8 10 11 20 18 17 8 13 22 12 11 12 15 13 11 8 12 18 19 8 17 9 13 13 14 17 18 17 18 12 18 16 17 9 13 12 9 12 18 15 18 20 17 16 11 16 12 17 10 6 9 17 3 9 19 13 16 9 18 15 20 9 8 13 19 18 21 17 9 17 17 13 18 8 8 13 17 14 11 1 19 13 19 12 9 18 17 9 13 9 9 18 9 10 5 14 8 12 9 8 8 10 18 19 1 17 16 13 18 9 9 9 15 19 20 10 13 15 18 13 19 12 15 10 19 19 21 13 15 12 10 18 15 13 23 10 21 10 9 8 17 16 12 17 13 16 16 14 18 22 12 10 8 15 7 12 8 12 18 9 18 5 8 19 13 9 19 18 17 24 9 20 21 16 15 15 11 2 14 9 17 20 8 15 20 19 14 9 22 12 21 16 9 18 18 9 18 9 9 13 18 13 15 8 24 12 17 15 13 8 18 9 9 11 15 8 8 16 15 16 9 9 19 6 17 21 14 12 9 10 23 5 14 8 14 8 13 12 20 18 18 14 14 11 11 14 9 23 8 19 19 8 16 8 19 21 19 8 8 19 18 22 8 14 19 18 18 10 23 17 8 20 17 10 18 19 22 16 23 16 16 14 14 9 8 18 24 12 15 11 6 24 17 18 16 13 21 21 13 18 19 20 9 19 18 16 9 19 19 9 8 1 24 19 9 17 24 16 22 13 17 20 9 12 16 20 23 10 2 8 8 3 20 9 20 8 9 8 9 9 9 6 9 17 10 24 16 12 17 12 21 18 20 17 18 7 13 19 18 19 8 17 10 8 21 7 12 14 23 15 13 9 19 16 21 19 20 11 13 14 2 14 15 17 12 10 14 19 8 23 17 20 4 22 15 9 18 3 7 6 7 16 18 18 15 16 20 19 7 21 15 20 13 18 8 13 2 9 12 22 21 15 3 12 14 11 17 8 13 15 16 9 13 15 17 4 15 15 15 1 11 18 15 5 12 14 12 10 11 16 5 19 11 20 13 11 15 11 9 13 7 13 15 7 17 20 10 19 16 18 23 22 18 24 5 19 11 20 20 24 14 11 19 20 19 19 8 15 24 24 11 19 18 23 20 16 17 10 1 10 12 21 22 10 24 20 8 15 13 24 13 10 12 20 12 3 1 9 11 16 12 18 5 22 7 6 22 18 21 7 12 14 6 15 2 5 6 16 14 1 9 21 6 18 16 15 10 18 3 23 11 14 11 19 2 2 12 14 20 12 15 8 16 5 14 15 19 1 8 19 15 17 18 18 11 8 12 16 21 15 19 8 20 15 10 8 8 18 24 20 14 19 18 8 19 9 13 11 7 17 8 18 14 14 19 7 8 8 13 9 8 16 20 18 8 11 16 16 12 9 9 20 12 8 23 12 11 23 13 11 11 8 8 19 13 9 17 17 15 8 7 23 9 7 6 16 8 10 10 19 8 16 10 17 9 17 17 8 16 6 1 21 23 14 14 19 13 2 12 9 16 13 21 16 10 11 11 13 14 13 8 13 19 8 9 14 17 7 10 17 20 16 19 7 19 7 8 15 1 8 4 15 9 12 13 11 21 10 19 8 10 18 15 17 22 17 20 8 20 19 14 9 10 10 9 11 13 23 19 9 15 10 7 10 14 9 11 18 10 9 17 17 8 13 17 11 15 18 16 16 8 9 6 15 18 9 9 15 14 8 18 18 19 21 17 13 16 13 9 8 7 8 14 11 8 19 16 9 13 19 23 17 19 8 16 8 15 14 9 8 9 9 8 17 23 10 3 13 8 7 8 7 18 6 8 18 12 20 9 8 18 22 18 19 14 13 18 18 18 19 9 14 6 16 8 17 12 19 19 19 18 23 16 9 19 2 23 13 12 16 12 9 15 8 15 21 17 17 8 11 7 6 11 21 19 22 14 17 16 16 8 18 21 11 23 2 17 22 18 11 12 17 16 13 10 10 11 18 9 19 9 9 16 7 7 8 19 17 12 24 9 17 17 2 18 19 9 17 9 14 17 18 17 18 10 19 14 18 11 21 18 14 16 10 21 15 24 11 15 8 21 14 11 14 16 18 11 8 24 18 23 20 10 14 19 19 8 16 20 1 19 15 22 18 18 20 9 9 23 13 16 20 13 12 17 9 18 19 18 18 8 20 8 16 16 20 17 13 11 19 22 9 24 8 1 13 9 14 18 18 17 12 15 18 20 13 11 1 23 8 16 16 19 24 23 23 13 20 16 11 18 15 8 22 14 11 9 20 16 13 18 18 14 20 11 14 19 19 9 20 19 19 10 19 18 5 9 21 15 1 11 12 13 18 2 8 22 15 20 10 15 6 19 19 19 8 5 13 18 11 11 24 19 20 15 23 11 4 4 15 8 22 5 20 2 17 7 7 8 20 12 23 18 2 20 7 10 11 13 11 8 19 18 22 6 20 11 13 23 10 13 18 15 22 21 17 16 22 20 6 24 5 6 14 19 20 20 18 15 20 19 18 10 15 18 9 13 13 14 23 14 11 16 18 21 6 13 20 13 14 19 19 18 9 2 5 18 21 20 14 2 3 6 23 20 5 5 18 6 4 7 23 23 8 17 21 14 12 20 8 10 10 14 20 17 16 10 9 8 17 15 10 18 15 18 7 10 17 17 4 10 13 12 14 19 9 10 8 13 13 22 15 21 14 17 9 23 17 9 17 8 17 11 11 11 9 13 13 17 17 16 9 8 8 9 13 18 18 9 3 18 20 20 19 20 13 15 16 16 19 21 22 9 12 17 15 17 18 11 2 14 1 8 1 19 12 9 12 23 21 19 10 13 14 19 11 8 16 16 8 13 8 14 23 19 8 17 14 24 16 1 17 18 23 13 17 23 12 20 7 22 9 14 22 21 8 13 14 8 17 13 23 19 13 20 10 16 17 16 7 23 18 15 19 9 16 8 17 7 14 16 16 18 12 16 8 10 18 9 7 20 13 6 24 16 16 12 8 17 10 14 11 22 18 10 21 13 14 19 16 8 16 15 7 8 19 13 12 19 9 18 16 19 15 7 8 18 23 19 13 3 20 19 15 21 19 20 19 21 20 21 20 19 19 13 19 15 16 18 19 19 13 12 8 17 18 14 21 18 13 19 11 22 6 21 8 8 9 17 19 13 19 19 16 18 19 10 13 8 13 23 8 22 9 18 12 15 7 16 17 14 16 11 8 21 19 18 13 20 10 19 14 8 10 14 19 6 15 9 8 9 9 19 17 8 16 15 13 8 19 12 6 15 9 17 12 9 16 15 9 17 17 19 10 16 17 17 19 9 13 13 16 16 16 15 11 14 15 17 19 14 18 12 23 9 7 18 18 16 17 14 11 13 21 19 11 16 14 9 18 16 20 16 12 18 8 18 14 16 17 18 16 14 8 8 18 13 19 16 1 16 16 8 16 5 9 7 10 10 18 22 10 11 9 18 11 19 20 20 20 18 8 18 16 18 6 19 10 20 13 21 12 17 12 9 20 16 7 2 21 18 14 19 17 6 9 8 19 16 23 18 19 5 19 10 21 16 18 19 18 19 18 10 17 8 7 20 18 9 19 19 8 8 3 19 11 2 18 9 4 24 19 16 6 15 7 2 2 21 19 13 14 24 5 18 18 19 19 10 12 10 17 10 19 21 14 22 12 14 3 6 19 24 19 11 5 18 24 16 11 18 18 13 16 19 14 20 21 6 6 5 21 17 4 19 20 4 11 6 14 22 15 8 23 11 16 1 2 3 12 14 16 19 3 7 15 20 19 15 1 7 12 20 22 3 17 12 10 13 4 15 16 6 15 17 8 15 17 22 12 20 16 4 14 19 12 10 7 1 19 1 14 24 3 19 18 15 13 7 20 19 18 9 18 15 13 17 2 17 4 22 12 19 20 10 13 20 24 3 7 9 3 21 2
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
grey
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
FALSE
FALSE
TRUE
Scale of data
Unknown
Unknown
Interval/Ratio
3-point Likert
4-point Likert
5-point Likert
6-point Likert
7-point Likert
8-point Likert
9-point Likert
10-point Likert
11-point Likert
Chart options
Title:
Label x-axis:
R Code
par4 <- 'Unknown' par3 <- 'TRUE' par2 <- 'grey' par1 <- '' par1 <- as.numeric(par1) if (par3 == 'TRUE') par3 <- TRUE if (par3 == 'FALSE') par3 <- FALSE if (par4 == 'Unknown') par1 <- as.numeric(par1) if (par4 == 'Interval/Ratio') par1 <- as.numeric(par1) if (par4 == '3-point Likert') par1 <- c(1:3 - 0.5, 3.5) if (par4 == '4-point Likert') par1 <- c(1:4 - 0.5, 4.5) if (par4 == '5-point Likert') par1 <- c(1:5 - 0.5, 5.5) if (par4 == '6-point Likert') par1 <- c(1:6 - 0.5, 6.5) if (par4 == '7-point Likert') par1 <- c(1:7 - 0.5, 7.5) if (par4 == '8-point Likert') par1 <- c(1:8 - 0.5, 8.5) if (par4 == '9-point Likert') par1 <- c(1:9 - 0.5, 9.5) if (par4 == '10-point Likert') par1 <- c(1:10 - 0.5, 10.5) bitmap(file='test1.png') if(is.numeric(x[1])) { if (is.na(par1)) { myhist<-hist(x,col=par2,main=main,xlab=xlab,right=par3) } else { if (par1 < 0) par1 <- 3 if (par1 > 50) par1 <- 50 myhist<-hist(x,breaks=par1,col=par2,main=main,xlab=xlab,right=par3) } } else { barplot(mytab <- sort(table(x),T),col=par2,main='Frequency Plot',xlab=xlab,ylab='Absolute Frequency') } dev.off() if(is.numeric(x[1])) { myhist n <- length(x) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Histogram)',6,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Bins',header=TRUE) a<-table.element(a,'Midpoint',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.element(a,'Cumul. Rel. Freq.',header=TRUE) a<-table.element(a,'Density',header=TRUE) a<-table.row.end(a) crf <- 0 if (par3 == FALSE) mybracket <- '[' else mybracket <- ']' mynumrows <- (length(myhist$breaks)-1) for (i in 1:mynumrows) { a<-table.row.start(a) if (i == 1) dum <- paste('[',myhist$breaks[i],sep='') else dum <- paste(mybracket,myhist$breaks[i],sep='') dum <- paste(dum,myhist$breaks[i+1],sep=',') if (i==mynumrows) dum <- paste(dum,']',sep='') else dum <- paste(dum,mybracket,sep='') a<-table.element(a,dum,header=TRUE) a<-table.element(a,myhist$mids[i]) a<-table.element(a,myhist$counts[i]) rf <- myhist$counts[i]/n crf <- crf + rf a<-table.element(a,round(rf,6)) a<-table.element(a,round(crf,6)) a<-table.element(a,round(myhist$density[i],6)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable.tab') } else { mytab reltab <- mytab / sum(mytab) n <- length(mytab) load(file='createtable') a<-table.start() a<-table.row.start(a) a<-table.element(a,'Frequency Table (Categorical Data)',3,TRUE) a<-table.row.end(a) a<-table.row.start(a) a<-table.element(a,'Category',header=TRUE) a<-table.element(a,'Abs. Frequency',header=TRUE) a<-table.element(a,'Rel. Frequency',header=TRUE) a<-table.row.end(a) for (i in 1:n) { a<-table.row.start(a) a<-table.element(a,labels(mytab)$x[i],header=TRUE) a<-table.element(a,mytab[i]) a<-table.element(a,round(reltab[i],4)) a<-table.row.end(a) } a<-table.end(a) table.save(a,file='mytable1.tab') }
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation