Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationTue, 18 Dec 2012 14:28:29 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/18/t1355859000atctvvpa6z4j3w3.htm/, Retrieved Thu, 31 Oct 2024 23:42:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=201600, Retrieved Thu, 31 Oct 2024 23:42:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact118
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Paper_Histogram] [2012-12-18 19:28:29] [b38599bd3d78365f281c5a627888d89a] [Current]
Feedback Forum

Post a new message
Dataseries X:
210907
120982
176508
179321
123185
52746
385534
33170
101645
149061
165446
237213
173326
133131
258873
180083
324799
230964
236785
135473
202925
215147
344297
153935
132943
174724
174415
225548
223632
124817
221698
210767
170266
260561
84853
294424
101011
215641
325107
7176
167542
106408
96560
265769
269651
149112
175824
152871
111665
116408
362301
78800
183167
277965
150629
168809
24188
329267
65029
101097
218946
244052
341570
103597
233328
256462
206161
311473
235800
177939
207176
196553
174184
143246
187559
187681
119016
182192
73566
194979
167488
143756
275541
243199
182999
135649
152299
120221
346485
145790
193339
80953
122774
130585
112611
286468
241066
148446
204713
182079
140344
220516
243060
162765
182613
232138
265318
85574
310839
225060
232317
144966
43287
155754
164709
201940
235454
220801
99466
92661
133328
61361
125930
100750
224549
82316
102010
101523
243511
22938
41566
152474
61857
99923
132487
317394
21054
209641
22648
31414
46698
131698
91735
244749
184510
79863
128423
97839
38214
151101
272458
172494
108043
328107
250579
351067
158015
98866
85439
229242
351619
84207
120445
324598
131069
204271
165543
141722
116048
250047
299775
195838
173260
254488
104389
136084
199476
92499
224330
135781
74408
81240
14688
181633
271856
7199
46660
17547
133368
95227
152601
98146
79619
59194
139942
118612
72880
65475
99643
71965
77272
49289
135131
108446
89746
44296
77648
181528
134019
124064
92630
121848
52915
81872
58981
53515
60812
56375
65490
80949
76302
104011
98104
67989
30989
135458
73504
63123
61254
74914
31774
81437
87186
50090
65745
56653
158399
46455
73624
38395
91899
139526
52164
51567
70551
84856
102538
86678
85709
34662
150580
99611
19349
99373
86230
30837
31706
89806
62088
40151
27634
76990
37460
54157
49862
84337
64175
59382
119308
76702
103425
70344
43410
104838
62215
69304
53117
19764
86680
84105
77945
89113
91005
40248
64187
50857
56613
62792
72535




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net

\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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201600&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201600&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201600&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'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,50000[25000320.1107270.1107272e-06
[50000,1e+05[75000880.3044980.4152256e-06
[1e+05,150000[125000580.2006920.6159174e-06
[150000,2e+05[175000450.1557090.7716263e-06
[2e+05,250000[225000350.1211070.8927342e-06
[250000,3e+05[275000160.0553630.9480971e-06
[3e+05,350000[325000110.0380620.9861591e-06
[350000,4e+05]37500040.01384110

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,50000[ & 25000 & 32 & 0.110727 & 0.110727 & 2e-06 \tabularnewline
[50000,1e+05[ & 75000 & 88 & 0.304498 & 0.415225 & 6e-06 \tabularnewline
[1e+05,150000[ & 125000 & 58 & 0.200692 & 0.615917 & 4e-06 \tabularnewline
[150000,2e+05[ & 175000 & 45 & 0.155709 & 0.771626 & 3e-06 \tabularnewline
[2e+05,250000[ & 225000 & 35 & 0.121107 & 0.892734 & 2e-06 \tabularnewline
[250000,3e+05[ & 275000 & 16 & 0.055363 & 0.948097 & 1e-06 \tabularnewline
[3e+05,350000[ & 325000 & 11 & 0.038062 & 0.986159 & 1e-06 \tabularnewline
[350000,4e+05] & 375000 & 4 & 0.013841 & 1 & 0 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=201600&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,50000[[/C][C]25000[/C][C]32[/C][C]0.110727[/C][C]0.110727[/C][C]2e-06[/C][/ROW]
[ROW][C][50000,1e+05[[/C][C]75000[/C][C]88[/C][C]0.304498[/C][C]0.415225[/C][C]6e-06[/C][/ROW]
[ROW][C][1e+05,150000[[/C][C]125000[/C][C]58[/C][C]0.200692[/C][C]0.615917[/C][C]4e-06[/C][/ROW]
[ROW][C][150000,2e+05[[/C][C]175000[/C][C]45[/C][C]0.155709[/C][C]0.771626[/C][C]3e-06[/C][/ROW]
[ROW][C][2e+05,250000[[/C][C]225000[/C][C]35[/C][C]0.121107[/C][C]0.892734[/C][C]2e-06[/C][/ROW]
[ROW][C][250000,3e+05[[/C][C]275000[/C][C]16[/C][C]0.055363[/C][C]0.948097[/C][C]1e-06[/C][/ROW]
[ROW][C][3e+05,350000[[/C][C]325000[/C][C]11[/C][C]0.038062[/C][C]0.986159[/C][C]1e-06[/C][/ROW]
[ROW][C][350000,4e+05][/C][C]375000[/C][C]4[/C][C]0.013841[/C][C]1[/C][C]0[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=201600&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=201600&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,50000[25000320.1107270.1107272e-06
[50000,1e+05[75000880.3044980.4152256e-06
[1e+05,150000[125000580.2006920.6159174e-06
[150000,2e+05[175000450.1557090.7716263e-06
[2e+05,250000[225000350.1211070.8927342e-06
[250000,3e+05[275000160.0553630.9480971e-06
[3e+05,350000[325000110.0380620.9861591e-06
[350000,4e+05]37500040.01384110



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.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('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')
}