Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
51.807 52.882 47.845 50.145 48.830 28.262 23.561 24.263 25.095 19.936 11.902 7.316 8.677 7.919 3.491 8.595 10.941 5.765 3.043 4.032 4.023 4.704 108 5.390 3.192 2.384 2.140 2.181 2.927 1.887 963 3 201 1.557 619 489 565 83 65 40 52 90 92 42 21 129 1.190 587 57 50.145 52.393 55.403 56.490 52.143 34.916 24.889 27.432 29.281 22.452 11.053 9.606 7.629 10.854 6.177 8.723 12.561 6.316 3.119 3.832 4.743 5.624 670 7.178 3.202 2.256 2.545 1.783 3.639 1.478 1.122 332 215 1.579 1.221 627 571 738 54 77 106 143 86 53 21 106 439 2 117 45.636 51.773 50.114 55.708 49.261 36.299 25.197 28.343 29.269 22.136 13.128 12.093 7.298 13.176 8.231 9.353 11.886 6.827 3.726 3.723 4.798 5.502 1.955 6.543 3.859 2.658 3.165 1.610 3.031 1.155 1.180 806 256 1.148 1.088 704 827 571 70 70 143 102 111 72 17 44 2 0 131 48.961 52.917 49.127 53.160 45.154 39.464 27.415 31.066 23.760 23.253 12.225 15.105 11.169 13.196 9.799 11.049 10.388 6.234 7.147 5.993 4.743 4.854 3.482 4.628 3.483 2.365 2.663 1.866 2.591 1.628 995 847 474 1.042 819 972 815 308 111 75 134 163 75 59 21 61 0 0 91 46.774 44.680 43.516 42.483 40.825 37.702 26.860 25.774 20.356 18.674 13.011 12.731 12.526 12.235 9.587 9.467 8.807 7.761 5.443 4.447 4.420 4.272 4.049 3.867 2.866 2.273 1.906 1.386 1.259 1.088 973 747 576 530 503 484 483 267 92 89 85 73 46 43 35 26 0 0 97
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 { 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