Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
75.000.000 80.000.000 80.000.000 91.600.000 100.000.000 100.000.000 120.090.000 150.000.000 151.946.870 170.542.680 178.000.000 180.000.000 180.000.000 182.300.000 186.044.890 194.000.000 200.000.000 203.000.000 210.000.000 228.005.000 237.504.000 240.000.000 250.000.000 260.000.000 276.480.000 300.597.210 305.000.000 335.400.000 336.060.450 343.500.000 346.330.000 356.961.750 400.000.000 407.560.000 420.358.810 432.147.110 439.467.940 445.200.000 446.600.000 450.000.000 466.432.730 470.640.000 472.538.900 476.472.020 504.000.000 528.350.000 572.106.150 604.367.500 605.890.000 608.720.310 613.866.250 615.505.230 644.593.750 649.800.000 660.000.000 690.162.000 691.160.840 720.000.000 723.633.600 747.621.370 748.650.000 782.769.360 786.123.920 798.838.380 801.000.000 814.000.000 822.447.870 833.855.570 885.858.050 889.315.250 895.800.000 943.507.510 964.151.980 985.314.200 992.293.500 1.000.000.000 1.000.000.000 1.000.000.000 1.031.812.020 1.150.416.290 1.173.882.030 1.187.984.630 1.257.232.620 1.274.743.320 1.335.000.000 1.346.285.040 1.408.419.400 1.410.000.000 1.417.160.680 1.434.811.100 1.665.241.100 1.666.318.280 1.730.829.650 1.737.761.440 1.969.759.000 1.993.427.660 2.003.815.330 2.026.006.620 2.199.568.590 2.228.460.000 2.264.998.670 2.464.279.330 2.537.361.750 2.598.478.790 2.608.233.040 2.610.585.480 2.847.464.760 2.979.639.020 3.097.570.400 3.247.936.650 3.404.802.610 3.698.536.100 3.750.646.260 3.767.598.640 3.959.698.600 4.085.643.460 4.192.013.260 4.257.657.190 4.320.320.500 4.325.985.450 4.445.291.560 4.506.371.100 4.514.827.790 4.619.015.150 4.800.000.000 5.353.227.150 5.820.361.500 6.057.063.170 7.336.800.000 7.578.548.480 8.532.423.680 9.327.395.360 9.923.971.120 11.409.897.150
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
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