Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
65.67 67.80 66.27 66.00 58.80 72.87 70.73 55.00 64.00 54.73 55.07 59.73 37.93 71.53 66.73 70.67 70.47 63.73 65.47 59.80 65.60 57.47 71.47 66.80 63.73 63.53 59.87 65.93 56.67 65.47 59.53 66.20 67.53 61.93 52.33 70.80 71.67 64.20 66.73 63.67 62.40 64.40 59.67 61.67 62.60 47.20 59.67 57.67 69.87 62.67 65.80 60.40 66.00 64.87 61.47 62.40 67.60 70.73 66.00 61.60 61.27 65.80 60.33 53.87 64.67 65.00 58.27 64.47 59.73 62.13 17.60 60.87 62.80 62.87 62.87 73.00 69.53 67.33 61.00 57.47 62.40 62.80 69.93 51.53 65.80 62.93 36.33 62.93 61.40 57.80 59.80 66.73 55.93 63.73 63.67 63.87 59.53 64.07 65.07 58.27 59.13 64.60 63.20 66.53 56.33 64.60 64.67 58.80 64.27 68.73 64.67 66.00 52.67 66.73 62.80 66.00 63.60 62.20 64.67 61.60 58.93 66.27 64.27 64.67 63.53 63.53 66.47 62.40 60.73 64.67 72.07 67.47 68.60 64.67 61.33 66.53 65.20 64.20 72.73 67.47 62.60 61.60 63.00 65.00 65.07 58.40 65.67 61.47 70.07 58.33 64.07 64.80 59.47 63.00 56.20 64.73 62.00 66.20 63.33 64.13 70.07 63.07 57.13 61.93 64.67 60.80 68.07 68.67 66.87 58.07 63.27 71.07 61.00 59.53 57.87 59.13 60.13 67.07 59.00 63.47 72.73 66.53 62.53 69.60 58.20 63.13 57.67 60.13 71.67 62.67 68.80 59.73 62.40 63.67 54.20 60.13 70.80 67.13 63.33 61.80 68.80 66.00 60.47 61.27 59.60 61.93 66.93 61.40 61.87 66.07 55.47 67.60 59.40 66.60 70.73 41.87 70.73 66.00 69.60 70.67 68.67 68.87 62.60 64.07 62.60
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
FALSE
TRUE
Scale of data
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 { plot(mytab <- table(x),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