Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
10 9 2 7 4 2 3 4 4 1 18 6 1 2 3 16 11 2 6 1 7 3 4 1 4 9 4 3 2 7 6 4 3 1 11 3 21 4 1 1 1 3 1 3 8 4 7 1 7 1 1 4 3 9 13 12 5 14 1 4 3 7 3 2 1 7 12 9 5 1 9 17 1 2 6 5 14 4 2 8 10 1 1 5 3 4 11 4 17 3 7 1 1 3 1 11 6 8 10 11 7 7 2 7 6 2 3 1 3 11 7 5 2 4 3 3 9 4 7 9 2 4 2 4 1 2 5 3 4 14 2 2 12 6 19 6 6 2 5 2 14 1 1 2 7 5 2 8 2 4 2 1 1 9 4 6 4 5 7 2 6 3 12 16 1 1 4 9 6 6 11 13 1 8 4 13 5 3 5 15 5 9 4 1 3 9 4 7 8 6 6 6 7 8 1 5 2 3 10 1 10 9 2 1 5 2 1 2 4 8 2 2 3 1 1 5 7 6 2 13 10 1 8 9 4 3 1 14 9 2 1 3 4 8 16 5 11 1 5 13 19 11 9 6 4 1 3 1 3 1 6 4 3 9 1 6 2 8 2 7 6 6 5 8 3 7 2 9 5 14 2 18 3 4 8 4 5 10 6 14 2 1 11 6 4 1 10 9 13 7 5 4 13 2 8 1 1 2 2 7 15 11 3 4 7 3 6 2 2 5 1 5 5 9 9 10 1 2 1 11 2 1 12 16 5 1 5 2 2 9 1 1 2 1 5 1 2 14 1 1 3 4 5 11 12 10 15 11 11 1 4 6 1 4 15 2 8 8 2 14 5 2 1 3 1 2 13 6 6 5 10 2 4 5 9 6 12 16 6 2 2 6 17 3 1 2 5 2 2 7 3 4 1 8 10 11 5 3 7 3 2 2 1 2 1 11 7 10 1 9 1 18 2 10 6 10 1 2 1 4 3 3 4 2 10 9 2 5 15 2 15 2 2 6 2 2 4 10 9 15 10 1 14 2 15 19 5 6 9 1 1 4 19 1 2 1 2 13 16 4 5 3 2 6 11 7 1 3 5 3 4 1 4 3 3 12 10 12 1 8 2 5 17 20 6 19 7 4 5 17 9 5 21 10 6 4 7 17 13 3 12 7 11 5 11 9 7 19 9 12 11 8 13 15 9 4 12 6 25 8 10 3 7 6 10 17 15 8 9 7 8 7 8 10 12 22 15 16 12 17 27 17 21 14 7 4 18 11 17 13 11 4 12 22 5 5 12 17 16 22 24 10 18 3 11 16 10 5 12 22 21 5 15 8 4 18 19 20 15 16 11 13 14 17 7 10 13 7 11 7 7 18 14 22 7 7 7 13 14 6 11 15 9 10 3 8 15 10 9 9 17 18 18 11 13 19 20 11 14 14 18 3 22 6 6 4 17 17 9 14 4 8 6 20 2 10 5 7 7 8 9 9 10 8 16 21 4 2 9 12 9 8 17 16 9 15 6 19 15 6 7 22 12 11 6 11 10 10 16 11 10 13 8 9 18 14 2 13 3 10 13 2 14 26 6 7 14 5 11 11 7 10 9 9 27 2 14 7 10 10 8 16 12 6 10 11 13 8 7 16 16 11 26 4 8 10 22 6 14 6 19 16 27 12 12 10 7 18 5 2 6 5 19 12 4 12 5 7 8 11 12 11 10 13 7 10 9 12 8 17 23 17 3 20 5 16 12 5 6 25 14 23 5 11 13 10 7 17 17 32 24 28 12 12 18 3 27 8 8 10 4 20 18 12 4 10 10 4 8 6 3 14 6 15 8 18 17 16 8 4 15 17 26 24 15 19 8 15 11 7 11 20 10 7 7 9 12 5 3 17 6 12 4 20 14 12 22 12 19 17 20 4 7 9 11 7 17 10 14 15 6 18 17 5 19 6 7 10 21 12 8 6 30 5 12 14 15 10 22 25 14 17 4 13 23 4 4 4 22 4 4 8 6 13 3 14 15 22 22 7 9 16 9 11 14 11 6 23 8 12 2 11 7 21 5 15 11 17 7 13 7 5 9 13 14 7 25 10 14 6 16 4 19 13 11 11 10 4 11 17 12 24 17 10 17 13 20 26 7 24 14 7 7 9 20 15 8 8 3 14 19 10 14 5 3 12 20 8 9 6 12 5 7 14 6 5 23 14 18 23 4 11 8 29 26 23 9 28 10 14 11 32 14 10 22 17 8 10 14 24 25 13 20 19 17 11 16 10 25 21 10 19 15 22 21 18 14 10 15 10 30 12 13 9 10 12 18 25 16 13 18 21 12 10 16 18 14 24 18 28 14 26 31 35 24 18 23 13 20 30 19 16 18 8 31 23 21 7 17 19 19 26 27 15 19 9 14 20 16 6 23 24 25 8 25 12 14 24 25 22 29 17 17 25 15 28 13 12 19 9 17 19 15 20 30 24 15 30 10 17 15 27 12 26 15 14 10 15 23 17 11 10 20 19 25 13 20 28 23 16 19 21 23 8 31 20 7 22 21 24 10 15 11 16 8 21 23 21 11 15 23 11 16 14 13 23 18 24 9 11 13 15 11 11 21 17 19 23 11 23 20 8 20 23 24 24 13 15 15 12 20 28 18 22 20 11 21 16 3 15 20 15 24 10 17 29 7 19 22 9 15 15 15 11 20 11 28 5 19 23 18 14 19 19 18 9 21 13 20 10 15 30 30 16 36 14 13 14 32 24 17 10 24 19 30 16 28 20 9 33 22 17 16 17 20 15 12 14 7 13 21 13 14 13 14 18 9 20 14 18 14 26 24 30 14 25 20 18 14 10 11 32 15 25 8 13 20 17 29 27 21 34 25 29 16 25 19 12 30 11 22 18 5 22 22 23 20 20 16 8 13 11 5 22 9 17 12 20 23 28 13 17 16 24 31 29 20 31 14 18 13 10 24 24 12 8 14 14 25 19 8 30 15 13 13 21 15 28 29 22 24 28 23 7 11 12 12 22 30 12 25 17 30 20 22 22 27 22 19 17 22 22 18 14 31 17 17 16 20 14 27 31 21 21 21 20 31 10 7 17 23 5 7 9 14 20 17 19 16 23 24 20 15 26 12 30 17 21 7 24 18 20 7 14 14 22 6 26 20 19 9 23 21 12 24 15 16 25 36 12 18 23 21 8 20 20 16 18 24 25 20 20 14 28 24 20 21 16 23 30 16 27 17 8 16 23 21 26 14 22 10 15 22 14 20 25 19 24 35 21 19 9 27 32 15 17 12 19 24 20 21 30 9 22 18 32 32 31 13 34 23 23 21 35 28 14 23 35 11 27 21 37 28 17 32 26 20 27 23 20 31 28 32 22 20 29 35 23 22 20 19 12 33 23 25 19 17 22 27 27 18 14 20 32 14 13 36 19 21 35 19 34 18 32 33 37 27 22 25 25 32 35 27 21 24 21 32 30 29 17 25 24 20 27 28 35 22 19 22 22 18 8 28 30 27 16 27 24 25 31 32 24 30 27 23 28 16 34 17 15 23 29 19 24 21 32 34 32 29 32 13 21 16 30 30 32 17 17 34 20 25 21 22 15 28 20 33 23 21 30 25 20 24 24 36 9 33 22 27 24 29 29 11 19 25 28 13 30 25 29 13 16 24 20 28 16 15 29 24 27 19 17 19 17 17 24 24 28 21 25 12 40 25 26 21 24 28 26 29 22 22 16 27 29 27 27 21 14 28 20 9 18 27 23 27 15 26 32 25 20 29 10 23 19 18 15 33 23 34 12 35 31 25 15 20 21 20 19 31 15 22 14 27 31 34 23 39 17 22 17 34 30 25 22 27 28 37 26 29 24 13 34 26 18 27 18 24 38 14 18 9 14 31 18 15 14 16 21 33 22 28 35 19 27 25 34 28 31 27 21 25 12 22 33 17 29 39 22 25 22 31 32 26 39 30 30 17 26 37 14 32 14 29 36 18 24 28 24 26 28 19 11 29 14 8 23 14 19 17 26 31 30 18 19 18 26 36 30 27 33 27 23 15 23 25 28 21 13 15 27 26 28 14 33 21 17 29 24 21 32 34 23 35 33 24 27 36 15 23 26 32 23 35 18 32 21 34 32 33 24 25 20 25 33 20 21 33 18 18 19 26 19 31 39 22 24 24 21 32 16 21 30 25 17 21 22 31 31 19 22 26 32 29 26 21 32 25 33 19 28 16 25 23 23 12 17 16 30 11 27 29 26 13 27 23 13 25 24 21 28 38 16 32 27 22 14 26 25 18 32 28 27 35 27 16 31 37 21 31 20 27 31 20 33 23 11 21 28 26 28 17 29 15 17 25 22 26 26 20 28 40 24 23 11 35 36 16 18 14 20 31 31 24 34 23 28 21 35 34 32 16 40 31 30 36 38 36 25 37 36 15 32 22 38 30 31 36 31 23 32 26 33 32 39 34 24 22 33 38 31 32 23 25 37 34 32 27 24 19 38 32 31 29 29 21 34 16 17 40 31 30 38 27 36 30 34 35 40 29 32 38 26 33 36 34 22 30 26 34 34 30 23 30 33 24 28 29 36 24 29 34 35 29 9 31 37 30 29 33 28 28 38 39 32 32 29 35 34 17 35 32 17 26 31 20 28 26 37 36 34 32 34 28 28 27 31 40 36 30 28 38 28 28 41 38 30 38 22 37 34 28 33 31 28 25 26 37 24 38 25 36 26 33 35 31 21 36 38 21 39 36 38 19 23 25 22 32 23 18 35 30 35 21 24 34 26 28 37 27 29 29 30 29 41 32 31 28 27 37 34 33 33 23 20 33 31 30 36 29 33 33 30 21 22 40 27 31 17 28 39 31 28 32 15 27 25 34 30 38 37 38 18 40 37 27 17 36 31 38 34 39 21 26 25 37 38 36 28 41 27 25 27 35 38 35 23 33 30 38 33 37 29 14 37 29 34 32 22 25 41 25 20 24 25 32 27 18 30 20 33 40 28 41 37 25 28 27 36 33 34 29 23 30 29 24 36 18 36 40 34 34 26 32 33 35 40 33 35 27 30 39 20 33 22 34 38 36 26 40 33 32 35 34 26 36 17 14 28 22 23 31 32 36 33 19 26 26 32 37 36 35 37 29 26 22 26 32 33 27 37 37 31 32 37 27 36 29 28 35 29 37 33 38 25 40 36 25 36 39 27 30 36 34 33 36 19 33 32 37 34 34 29 27 22 30 38 22 28 35 35 26 22 30 32 34 40 33 34 26 25 35 29 27 34 27 20 33 25 40 34 23 24 28 33 32 30 29 36 27 39 22 31 22 26 25 30 13 29 27 34 26 37 31 27 14 32 31 23 38 32 26 40 39 24 41 31 23 19 37 30 23 35 39 34 39 31 24 32 38 33 32 25 34 39 22 40 28 22 28 35 28 31 21 31 18 18 36 23 40 27 25 36 41 26 27 23 38 37 25 30 24 26 32 35 41 37 26 30 28 36 41 41 22 41 40 36 37 40 41 32 41 41 39 40 37 41 34 40 41 36 39 35 31 34 34 40 37 30 41 38 40 40 34 38 42 40 41 39 41 36 26 42 42 39 30 30 41 35 32 34 41 41 31 42 42 42 42 39 41 42 40 34 39 30 37 42 35 41 40 42 37 38 42 30 35 36 33 33 38 39 42 35 37 36 36 30 42 41 36 32 38 41 37 40 41 39 41 34 39 37 35 39 41 38 42 34 42 42 34 39 38 38 39 41 34 34 33 35 42 41 32 32 42 38 39 42 41 31 42 23 41 40 34 34 34 37 32 34 40 41 40 39 37 30 37 41 41 40 40 39 34 40 42 42 28 37 39 28 34 41 39 37 31 38 31 29 37 30 39 42 42 38 39 33 37 42 34 36 38 32 39 42 38 34 30 38 37 42 32 37 38 35 39 32 24 37 42 34 37 31 40 42 33 42 42 22 36 33 39 35 41 40 41 42 41 38 31 22 37 38 40 36 42 30 27 41 42 40 38 33 42 40 37 36 38 42 38 32 37 34 39 36 40 32 37 39 38 42 40 39 29 42 40 23 29 42 35 41 36 36 36 41 42 36 42 39 41 29 32 37 34 37 35 27 35 37 28 41 31 42 41 38 35 35 37 37 40 42 40 38 29 38 41 31 38 40 36 42 40 31 42 41 35 38 37 29 38 32 32 39 42 24 42 37 38 42 41 39 27 38 39 42 36 38 41 39 25 35 34 34 40 39 42 41 36 42 40 42 39 41 41 35 38 42 41 35 42 41 28 38 40 37 34 37 36 38 42 26 40 35 38 40 39 36 33 39 37 39 26 33 37 40 31 42 34 41 38 41 37 41 31 30 36 38 30 36 30 31 36 42 42 36 32 25 34 35 33 41 36 37 31 41 31 40 40 36 31 31 26 40 28 36 39 39 32 32 42 36 39 25 40 34 32 42 40 25 42 41 34 26 40 31 33 39 42 36 42 37 38 35 39 41 36 36 40 42 37 42 37 24 37 38 37 37 26 32 29 19 41 32 42 33 29 40 42 39 41 35 40 39 40 31 35 27 39 40 42 42 33 33 42 38 5 18 5 16 22 38 12 14 37 3 40 19 37 37 18 35 14 7 8 32 9 18 9 3 9 37 25 16 40 9 23 24 5 30 16 33 3 34 34 2 3 21 6 16 5 12 38 10 11 14 17 27 4 1 16 39 28 25 4 38 25 24 5 8 9 41 16 28 14 23 20 39 31 41 31 27 28 19 3 41 2 6 18 18 5 40 9 13 14 41 40 34 32 13 35 5 33 10 5 17 33 32 29 13 3 24 8 20 4 2 40 41 26 36 30 11 11 12 5 33 4 6 35 24 10 18 40 21 1 32 10 30 16 20 9 9 36 28 21 11 27 13 4 32 3 22 40 23 22 42 29 26 41 2 14 3 28 23 10 21 40 21 22 34 5 38 10 36 12 1 41 40 40 11 30 7 7 14 25 1 7 17 24 28 5 7 7 3 4 9 11 23 9 23 17 41 31 32 23 13 41 8 38 32 13 20 41 24 25 24 42 15 14 28 8 13 9 23 7 24 4 18 36 12 33 15 3 28 11 35 24 30 42 24 4 3 42 8 35 18 32 7 10 34 21 20 19 8 37 35 30 5 41 5 10 16 19 38 4 10 25 32 29 33 7 21 23 12 12 7 5 39 1 26 19 17 12 12 30 15 29 33 9 11 42 29 29 24 20 23 8 14 25 10 7 17 4 25 20 41 25 36 39 13 27 23 28 13 12 34 40 3 24 2 20 12 4 21 41 23 34 17 34 22 30 31 12 29 3 32 33 28 41 18 34 36 21 6 35 2 40 7 20 17 27 5 5 2 21 28 18 32 26 13 13 17 33 30 25 19 30 30 36 14 9 28 19 26 33 4 2 6 33 17 25 33 33 21 40 9 17 31 13 40 20 39 29 39 41 2 7 12 21 27 19 19 25 9 30 34 23 8 26 9 34 3 4 22 18 18 9 13 27 41 39 33 2 33 17 7 41 41 9 19 35 22 26 33 11 37 23 6 20 34 37 16 22 4 21 37 8 15 8 29 24 1 39 21 1 34 4 27 25 2 10 10 26 35 31 26 24 16 32 15 32 23 18 4 29 12 12 3 23 14 22 26 27 24 30 41 14 31
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
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,hyperlink('http://www.xycoon.com/histogram.htm','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
0 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation