Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
-7.34659 -3.83393 0.601079 10.1708 -19.384 76.9922 5.5307 -40.6643 7.89237 17.2903 12.6761 19.6465 -22.8607 24.2146 -102.787 -22.1468 19.5158 -27.5133 32.8225 -23.6236 9.83643 4.60699 70.5428 50.2208 -0.610172 109.513 38.3844 -17.1329 9.89147 8.93507 -50.6089 6.24831 -15.4578 17.4048 -39.2381 -41.6349 5.69034 31.4039 20.6034 4.54633 -32.8318 5.29772 18.8812 21.0418 -34.8082 32.3313 -31.5422 -6.96524 -51.1887 -19.621 16.3293 -54.3249 11.0791 51.4231 -17.4376 -28.8304 23.0113 -6.31347 -53.8408 -12.2495 13.1904 8.39642 -42.7811 59.8085 36.2483 -29.8633 38.3825 76.0114 45.9664 -1.17613 21.4147 -26.7206 -36.2753 -1.78602 -12.253 2.56265 1.16142 9.31058 -27.9482 -35.9069 -16.4696 7.28922 -19.3588 1.19328 22.2468 0.588097 -19.1513 -32.8384 -19.9199 28.5582 -27.2895 20.3171 39.2813 -9.7313 -0.942376 9.60549 18.1714 -4.9384 -7.56233 12.84 -30.4868 -3.639 -17.8985 30.4074 -5.72721 -9.3317 -5.54115 -14.7961 -55.8251 -7.45031 7.46339 3.41547 -77.9853 -70.9246 25.0086 29.244 10.2707 -13.374 60.4465 27.8033 28.7837 -65.8301 18.4629 -89.4987 -19.6233 -11.2502 9.82813 -20.7817 40.6665 -28.5946 -10.6826 26.0439 -9.82614 -7.37667 -50.715 -40.8176 -1.70087 -99.8017 14.1375 -11.3701 -11.5852 43.864 32.0648 1.17527 15.5922 5.30727 0.309518 -25.6243 0.855347 45.826 34.6051 -22.2974 25.725 38.2554 -20.4191 5.13599 36.9151 -22.4416 17.9049 -14.7084 20.6995 4.38463 35.8517 -124.977 64.3234 -31.3808 22.9819 9.22512 7.16268 -6.14016 10.5282 19.031 40.8665 38.6731 38.6731 28.9975 -6.40377 23.1366 56.324 -81.4623 -6.58429 26.0776 19.8611 5.20928 57.0213 9.45682 7.45682 12.4568 16.3065 -34.724 -27.9697 33.4926 -10.2839 22.2461 -13.1051 -18.4536 9.35706 3.31778 -9.62075 18.7282 89.7837 -23.6847 13.0052 21.7361 -3.67581 -28.9609 -76.9933 -32.6912 49.3754 17.3415 -49.6868 25.4617 -21.8287 -12.7843 14.6583 -21.7871 9.07381 48.8847 -33.9381 10.7993 13.2289 -33.8785 -23.4321 7.38082 39.5195 -41.808 9.4401 1.73577 -11.3687 14.4103 36.7927 11.4415 3.58295 42.2508 -29.7848 -79.3484 -47.2454 22.0011 -55.9352 -1.49485 -25.0235 -28.1147 15.2404 64.3234 -1.89631 29.7924 31.3961 -13.8095 -7.75536 10.6631 12.0411 -54.9164 5.60625 -11.4533 36.1205 14.2016 -21.5212 -47.5903 11.8037 25.0071 -31.3808 -9.64807 7.74461 15.2404 8.14127 -17.6636 -23.8619 22.1111 24.4277 -35.2637 25.4359 -11.1429 9.01713 12.6079 19.19 -22.1745 21.192 -67.4088
Sample Range:
(leave blank to include all observations)
From:
To:
Number of bins
(leave empty to use default)
(?)
Colour
red
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 <- 'FALSE' 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 { 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