FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationTue, 28 Sep 2010 14:41:37 +0000
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/Sep/28/t12856849499ikqsl334fp93mh.htm/, Retrieved Mon, 29 Apr 2024 07:46:54 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=79589, Retrieved Mon, 29 Apr 2024 07:46:54 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsKDGP1W1
Estimated Impact197

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Histogram] [Frequentietabel v...] [2010-09-28 14:41:37] [5815de052410d7754c978b0de903e641] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1
15
400
15
16
337
928
13
3565
4062
102
1625
1829
35
122
21
1149
86
18
20
51
1
106
2013
321
2157
572
12
116
30
1288
174
176
131
165
12
2
8
1
1
1176
121
382
1
1
372
48
231
3
379
104
7746
67
2857
1141
345
1007
1708
48
39
2
880
1237
24
4
170
334
890
987
2196
2
738
79
357
305
23
1
1
27
5
5728
426
72
272
55
8
7546
2737
94
36
242
1631
7793
558
3
883
483
8608
279
2673
918
14
609
95
4
34
8
2
6
512
2486
1534
2788
326
247
61
10
260
1
2
17
202
4
79
1
7
13
11
8
4
16
25
1
141
7
167
2
2833
3
3553
54
842
492
122
253
3
2
2
212
67
6
1
78
9
1
110
1
184
3
177
81
6
19
32
48
23
4
2
9
12
8
23
386
1428
815
549
1046
67
42
58
81
1746
1229
1675
8
100
2
14
1877
6
13
215
190
75
28
148
8
40
610
25
94
2223
247
94
350
175
954
2
4
1
1
24
1
100
16
1
306
17
2
1059
4
2
3268
2
2837
599
59
2738
70
7107
71
6751
11
3169
2753
2
1
46
27
80
1994
3
12048
2
2255
4368
2919
2
2847
60
206
3097
3
36
192
14
1
313
148
147
27
145
18
171
3766
180
391
753
488
11
107
16
6533
1899
1924
104
12
122
7452
1
241
672
929
604
4576
1444
4
3164
3362
124
1167
1347
496
1
242
48
246
146
7077
243
49
115
2
2277
1007
1613
2019
11599
1
33
56
660
1
76
6597
822
4
682
1413
5117
254
69
21
243
186
882
1004
1928
301
39
30
5062
25
11514
467
53
1813
98
1177
439
6
1415
297
352
254
389
2831
2316
139
263
271
8123

Tables (Output of Computation)





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' @ 193.190.124.24

\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' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79589&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' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79589&T=0

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

As an alternative you can also use a QR Code:  
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' @ 193.190.124.24






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,1000[5002720.7727270.7727270.000773
[1000,2000[1500320.0909090.8636369.1e-05
[2000,3000[2500200.0568180.9204555.7e-05
[3000,4000[350080.0227270.9431822.3e-05
[4000,5000[450030.0085230.9517059e-06
[5000,6000[550030.0085230.9602279e-06
[6000,7000[650030.0085230.968759e-06
[7000,8000[750060.0170450.9857951.7e-05
[8000,9000[850020.0056820.9914776e-06
[9000,10000[9500000.9914770
[10000,11000[10500000.9914770
[11000,12000[1150020.0056820.9971596e-06
[12000,13000]1250010.00284113e-06

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,1000[ & 500 & 272 & 0.772727 & 0.772727 & 0.000773 \tabularnewline
[1000,2000[ & 1500 & 32 & 0.090909 & 0.863636 & 9.1e-05 \tabularnewline
[2000,3000[ & 2500 & 20 & 0.056818 & 0.920455 & 5.7e-05 \tabularnewline
[3000,4000[ & 3500 & 8 & 0.022727 & 0.943182 & 2.3e-05 \tabularnewline
[4000,5000[ & 4500 & 3 & 0.008523 & 0.951705 & 9e-06 \tabularnewline
[5000,6000[ & 5500 & 3 & 0.008523 & 0.960227 & 9e-06 \tabularnewline
[6000,7000[ & 6500 & 3 & 0.008523 & 0.96875 & 9e-06 \tabularnewline
[7000,8000[ & 7500 & 6 & 0.017045 & 0.985795 & 1.7e-05 \tabularnewline
[8000,9000[ & 8500 & 2 & 0.005682 & 0.991477 & 6e-06 \tabularnewline
[9000,10000[ & 9500 & 0 & 0 & 0.991477 & 0 \tabularnewline
[10000,11000[ & 10500 & 0 & 0 & 0.991477 & 0 \tabularnewline
[11000,12000[ & 11500 & 2 & 0.005682 & 0.997159 & 6e-06 \tabularnewline
[12000,13000] & 12500 & 1 & 0.002841 & 1 & 3e-06 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=79589&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,1000[[/C][C]500[/C][C]272[/C][C]0.772727[/C][C]0.772727[/C][C]0.000773[/C][/ROW]
[ROW][C][1000,2000[[/C][C]1500[/C][C]32[/C][C]0.090909[/C][C]0.863636[/C][C]9.1e-05[/C][/ROW]
[ROW][C][2000,3000[[/C][C]2500[/C][C]20[/C][C]0.056818[/C][C]0.920455[/C][C]5.7e-05[/C][/ROW]
[ROW][C][3000,4000[[/C][C]3500[/C][C]8[/C][C]0.022727[/C][C]0.943182[/C][C]2.3e-05[/C][/ROW]
[ROW][C][4000,5000[[/C][C]4500[/C][C]3[/C][C]0.008523[/C][C]0.951705[/C][C]9e-06[/C][/ROW]
[ROW][C][5000,6000[[/C][C]5500[/C][C]3[/C][C]0.008523[/C][C]0.960227[/C][C]9e-06[/C][/ROW]
[ROW][C][6000,7000[[/C][C]6500[/C][C]3[/C][C]0.008523[/C][C]0.96875[/C][C]9e-06[/C][/ROW]
[ROW][C][7000,8000[[/C][C]7500[/C][C]6[/C][C]0.017045[/C][C]0.985795[/C][C]1.7e-05[/C][/ROW]
[ROW][C][8000,9000[[/C][C]8500[/C][C]2[/C][C]0.005682[/C][C]0.991477[/C][C]6e-06[/C][/ROW]
[ROW][C][9000,10000[[/C][C]9500[/C][C]0[/C][C]0[/C][C]0.991477[/C][C]0[/C][/ROW]
[ROW][C][10000,11000[[/C][C]10500[/C][C]0[/C][C]0[/C][C]0.991477[/C][C]0[/C][/ROW]
[ROW][C][11000,12000[[/C][C]11500[/C][C]2[/C][C]0.005682[/C][C]0.997159[/C][C]6e-06[/C][/ROW]
[ROW][C][12000,13000][/C][C]12500[/C][C]1[/C][C]0.002841[/C][C]1[/C][C]3e-06[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=79589&T=1

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

As an alternative you can also use a QR Code:  
QR Code


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

Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,1000[5002720.7727270.7727270.000773
[1000,2000[1500320.0909090.8636369.1e-05
[2000,3000[2500200.0568180.9204555.7e-05
[3000,4000[350080.0227270.9431822.3e-05
[4000,5000[450030.0085230.9517059e-06
[5000,6000[550030.0085230.9602279e-06
[6000,7000[650030.0085230.968759e-06
[7000,8000[750060.0170450.9857951.7e-05
[8000,9000[850020.0056820.9914776e-06
[9000,10000[9500000.9914770
[10000,11000[10500000.9914770
[11000,12000[1150020.0056820.9971596e-06
[12000,13000]1250010.00284113e-06


Figures (Output of Computation)

Input Parameters & R Code

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