Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationMon, 01 Mar 2010 11:30:22 -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/Mar/01/t1267469545ud17gz3ywkau30f.htm/, Retrieved Thu, 28 Mar 2024 18:04:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=73734, Retrieved Thu, 28 Mar 2024 18:04:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W31
Estimated Impact125
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [] [2010-03-01 18:30:22] [64b736d20c8e0a8542a5a7c9128a9b74] [Current]
Feedback Forum

Post a new message
Dataseries X:
182900
191400
189300
192200
187900
193900
189100
193100
194800
200200
211500
202100
200300
199200
204900
207300
200000
197700
202200
200200
208300
215100
210700
208100
209000
211000
210200
205500
211400
211700
209300
207500
203300
207100
206900
228700
226900
226500
227100
228100
226500
225200
217800
221300
215300
231300
227100
237800
230200
233400
231100
237200
243700
239700
248400
241000
254500
242800
268300
253900
262100
264100
261000
269300
260400
263200
279200
272200
269200
289600
283200
284300
283000
289100
289600
289100
287400
279600
289300
295000
299600
293600
294400
290200
301000
307900
298800
310300
293900
305000
311300
317300
296200
306800
291800
301900
314600
321500
329400
311700
309700
306500
307100
301300
292200
310100
316800
284400
284600
301200
287600
314300
298200
299400
301900
265500
287100
274000
290100
263100
245200
258600
259800
269800
274600
274800
271100
257800
290300
262200
270000
290600




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=73734&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=73734&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=73734&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
[180000,2e+05[190000110.0833330.0833334e-06
[2e+05,220000[210000260.196970.2803031e-05
[220000,240000[230000160.1212120.4015156e-06
[240000,260000[250000100.0757580.4772734e-06
[260000,280000[270000200.1515150.6287888e-06
[280000,3e+05[290000280.2121210.8409091.1e-05
[3e+05,320000[310000190.1439390.9848487e-06
[320000,340000]33000020.01515211e-06

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[180000,2e+05[ & 190000 & 11 & 0.083333 & 0.083333 & 4e-06 \tabularnewline
[2e+05,220000[ & 210000 & 26 & 0.19697 & 0.280303 & 1e-05 \tabularnewline
[220000,240000[ & 230000 & 16 & 0.121212 & 0.401515 & 6e-06 \tabularnewline
[240000,260000[ & 250000 & 10 & 0.075758 & 0.477273 & 4e-06 \tabularnewline
[260000,280000[ & 270000 & 20 & 0.151515 & 0.628788 & 8e-06 \tabularnewline
[280000,3e+05[ & 290000 & 28 & 0.212121 & 0.840909 & 1.1e-05 \tabularnewline
[3e+05,320000[ & 310000 & 19 & 0.143939 & 0.984848 & 7e-06 \tabularnewline
[320000,340000] & 330000 & 2 & 0.015152 & 1 & 1e-06 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=73734&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][180000,2e+05[[/C][C]190000[/C][C]11[/C][C]0.083333[/C][C]0.083333[/C][C]4e-06[/C][/ROW]
[ROW][C][2e+05,220000[[/C][C]210000[/C][C]26[/C][C]0.19697[/C][C]0.280303[/C][C]1e-05[/C][/ROW]
[ROW][C][220000,240000[[/C][C]230000[/C][C]16[/C][C]0.121212[/C][C]0.401515[/C][C]6e-06[/C][/ROW]
[ROW][C][240000,260000[[/C][C]250000[/C][C]10[/C][C]0.075758[/C][C]0.477273[/C][C]4e-06[/C][/ROW]
[ROW][C][260000,280000[[/C][C]270000[/C][C]20[/C][C]0.151515[/C][C]0.628788[/C][C]8e-06[/C][/ROW]
[ROW][C][280000,3e+05[[/C][C]290000[/C][C]28[/C][C]0.212121[/C][C]0.840909[/C][C]1.1e-05[/C][/ROW]
[ROW][C][3e+05,320000[[/C][C]310000[/C][C]19[/C][C]0.143939[/C][C]0.984848[/C][C]7e-06[/C][/ROW]
[ROW][C][320000,340000][/C][C]330000[/C][C]2[/C][C]0.015152[/C][C]1[/C][C]1e-06[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=73734&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=73734&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
[180000,2e+05[190000110.0833330.0833334e-06
[2e+05,220000[210000260.196970.2803031e-05
[220000,240000[230000160.1212120.4015156e-06
[240000,260000[250000100.0757580.4772734e-06
[260000,280000[270000200.1515150.6287888e-06
[280000,3e+05[290000280.2121210.8409091.1e-05
[3e+05,320000[310000190.1439390.9848487e-06
[320000,340000]33000020.01515211e-06



Parameters (Session):
par2 = grey ; par3 = FALSE ; par4 = Unknown ;
Parameters (R input):
par1 = ; 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')