Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationMon, 22 Feb 2010 08:48:05 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Feb/22/t1266853943ed6533s3oqig03i.htm/, Retrieved Thu, 28 Mar 2024 22:23:46 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=73270, Retrieved Thu, 28 Mar 2024 22:23:46 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W21
Estimated Impact168
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Histogram 2 - Ver...] [2010-02-22 15:48:05] [2aa5bad7942f7e33426bcac9d4e6ffec] [Current]
Feedback Forum

Post a new message
Dataseries X:
3592.209
5955.737
4652.245
4211.646
4787.85
3599.726
4174.27
5106.331
5325.748
6604.61
5711.903
6919.301
7048.762
8655.977
6658.531
7247.033
8779.571
6602.491
9832.484
9369.493
8582.763
8206.936
6515.833
8618.104
8505.387
9881.644
9375.294
15642.5
12232.729
6288.931
12473.941
11142.819
10236.315
10581.513
8763.71
10819.041
11636.247
14650.13
10671.384
17468.628
13873.187
13077.575
16866.811
14186.635
19919.865
17681.782
9984.276
17423.093
13514.449
12334.567
12274.561
11752.227
13054.001
12460.977
8626.675
13722.619
12066.218
6798.833
6593.818
6606.193
6315.275
7232.949
6747.437
7803.613
6700.314
5369.534
8081.188
10718.392
9447.21
6815.098
5497.801
6805.308




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 1 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=73270&T=0

[TABLE]
[ROW][C]Summary of computational transaction[/C][/ROW]
[ROW][C]Raw Input[/C][C]view raw input (R code) [/C][/ROW]
[ROW][C]Raw Output[/C][C]view raw output of R engine [/C][/ROW]
[ROW][C]Computing time[/C][C]1 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=73270&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=73270&T=0

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,5000[250060.0833330.0833331.7e-05
[5000,10000[7500390.5416670.6250.000108
[10000,15000[12500210.2916670.9166675.8e-05
[15000,20000]1750060.08333311.7e-05

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,5000[ & 2500 & 6 & 0.083333 & 0.083333 & 1.7e-05 \tabularnewline
[5000,10000[ & 7500 & 39 & 0.541667 & 0.625 & 0.000108 \tabularnewline
[10000,15000[ & 12500 & 21 & 0.291667 & 0.916667 & 5.8e-05 \tabularnewline
[15000,20000] & 17500 & 6 & 0.083333 & 1 & 1.7e-05 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=73270&T=1

[TABLE]
[ROW][C]Frequency Table (Histogram)[/C][/ROW]
[ROW][C]Bins[/C][C]Midpoint[/C][C]Abs. Frequency[/C][C]Rel. Frequency[/C][C]Cumul. Rel. Freq.[/C][C]Density[/C][/ROW]
[ROW][C][0,5000[[/C][C]2500[/C][C]6[/C][C]0.083333[/C][C]0.083333[/C][C]1.7e-05[/C][/ROW]
[ROW][C][5000,10000[[/C][C]7500[/C][C]39[/C][C]0.541667[/C][C]0.625[/C][C]0.000108[/C][/ROW]
[ROW][C][10000,15000[[/C][C]12500[/C][C]21[/C][C]0.291667[/C][C]0.916667[/C][C]5.8e-05[/C][/ROW]
[ROW][C][15000,20000][/C][C]17500[/C][C]6[/C][C]0.083333[/C][C]1[/C][C]1.7e-05[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=73270&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=73270&T=1

As an alternative you can also use a QR Code:  

The GUIDs for individual cells are displayed in the table below:

Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,5000[250060.0833330.0833331.7e-05
[5000,10000[7500390.5416670.6250.000108
[10000,15000[12500210.2916670.9166675.8e-05
[15000,20000]1750060.08333311.7e-05



Parameters (Session):
par1 = 4 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = 4 ; par2 = grey ; par3 = FALSE ; par4 = Unknown ;
R code (references can be found in the software module):
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('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')