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
-0.3
grey
white
blue
red
black
brown
yellow
Bins are closed on right side
0
FALSE
TRUE
Scale of data
1
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