Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
1 15 400 15 16 337 928 13 3565 4062 102 1625 1829 35 122 21 1149 86 18 20 51 1 106 2013 321 2157 572 12 116 30 1288 174 176 131 165 12 2 8 1 1 1176 121 382 1 1 372 48 231 3 379 104 7746 67 2857 1141 345 1007 1708 48 39 2 880 1237 24 4 170 334 890 987 2196 2 738 79 357 305 23 1 1 27 5 5728 426 72 272 55 8 7546 2737 94 36 242 1631 7793 558 3 883 483 8608 279 2673 918 14 609 95 4 34 8 2 6 512 2486 1534 2788 326 247 61 10 260 1 2 17 202 4 79 1 7 13 11 8 4 16 25 1 141 7 167 2 2833 3 3553 54 842 492 122 253 3 2 2 212 67 6 1 78 9 1 110 1 184 3 177 81 6 19 32 48 23 4 2 9 12 8 23 386 1428 815 549 1046 67 42 58 81 1746 1229 1675 8 100 2 14 1877 6 13 215 190 75 28 148 8 40 610 25 94 2223 247 94 350 175 954 2 4 1 1 24 1 100 16 1 306 17 2 1059 4 2 3268 2 2837 599 59 2738 70 7107 71 6751 11 3169 2753 2 1 46 27 80 1994 3 12048 2 2255 4368 2919 2 2847 60 206 3097 3 36 192 14 1 313 148 147 27 145 18 171 3766 180 391 753 488 11 107 16 6533 1899 1924 104 12 122 7452 1 241 672 929 604 4576 1444 4 3164 3362 124 1167 1347 496 1 242 48 246 146 7077 243 49 115 2 2277 1007 1613 2019 11599 1 33 56 660 1 76 6597 822 4 682 1413 5117 254 69 21 243 186 882 1004 1928 301 39 30 5062 25 11514 467 53 1813 98 1177 439 6 1415 297 352 254 389 2831 2316 139 263 271 8123
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