Send output to:
Browser Blue - Charts White
Browser Black/White
CSV
Data:
100 112.0967742 128.2258065 107.2580645 125.8064516 114.516129 109.6774194 98.38709677 128.2258065 133.0645161 127.4193548 116.1290323 120.9677419 120.1612903 135.483871 115.3225806 125 125.8064516 117.7419355 100.8064516 119.3548387 128.2258065 119.3548387 104.0322581 115.3225806 114.516129 128.2258065 123.3870968 125 121.7741935 120.9677419 97.58064516 127.4193548 136.2903226 113.7096774 110.483871 119.3548387 118.5483871 129.0322581 124.1935484 120.9677419 125 121.7741935 94.35483871 131.4516129 134.6774194 120.9677419 120.1612903 117.7419355 123.3870968 144.3548387 132.2580645 124.1935484 144.3548387 128.2258065 112.0967742 143.5483871 144.3548387 140.3225806 134.6774194 129.0322581 133.8709677 154.0322581 143.5483871 138.7096774 150 131.4516129 121.7741935 154.8387097 142.7419355 154.0322581 145.1612903 141.1290323 143.5483871 170.1612903 138.7096774 156.4516129 159.6774194 141.9354839 130.6451613 157.2580645 160.483871 161.2903226 139.516129 152.4193548 150 172.5806452 150 159.6774194 167.7419355 158.0645161 142.7419355 159.6774194 179.0322581 166.9354839 144.3548387 168.5483871 170.9677419 172.5806452 185.483871 171.7741935 192.7419355 180.6451613 147.5806452 183.8709677 179.8387097 143.5483871 132.2580645
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.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) } dev.off() 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')
Compute
Summary of computational transaction
Raw Input
view raw input (R code)
Raw Output
view raw output of R engine
Computing time
1 seconds
R Server
Big Analytics Cloud Computing Center
Click here to blog (archive) this computation