FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_histogram.wasp
Title produced by softwareHistogram
Date of computationFri, 12 Nov 2010 15:36:51 +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/Nov/12/t12895762499sc1098px383eqf.htm/, Retrieved Fri, 01 Nov 2024 00:16:20 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=94217, Retrieved Fri, 01 Nov 2024 00:16:20 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Histogram] [Bad example of Hi...] [2010-09-25 09:28:23] [b98453cac15ba1066b407e146608df68]
- R PD    [Histogram] [Histogram - Tijd] [2010-11-12 15:36:51] [9ea95e194e0eb2a674315798620d5bc6] [Current]
- R  D      [Histogram] [histogram] [2010-12-10 10:17:29] [9f32078fdcdc094ca748857d5ebdb3de]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
294.371
155.359
167.804
82.893
103.131
130.093
166.796
72.174
96.396
81.056
138.981
197.604
264.405
119.403
189.62
155.779
134.168
126.862
159.104
163.426
113.344
175.645
147.312
164.642
125.814
138.558
163.136
148.763
178.322
107.805
180.363
179.006
111.603
251.469
123.646
108.398
134.505
129.605
211.562
300.239
329.183
115.475
115.108
101.922
391.433
103.906
112.704
619.22
110.688
95.539
150.985
138.107
177.705
757.365
103.671
81.101
130.586
166.608
201.734
175.329
126.372
107.822
146.123
98.815
219.641
156
123.928
156.405
104.828
188.594
575.698
564.424
149.465
168.474
280.909
172.095
73.594
128.317
202.431
149.787
243.719
188.553
125.634
166.548
284.966
122.213
172.936
152.882
242.736
107.814
155.723
192.582
126.668
127.17
125.77
144.493
123.241
138.431
150.875
375.445
154.611
83.401
115.175
198.463
520.108
235.576
105.44
152.272
310.469
217.089
229.36
555.232
466.984
127.703
101.383
172.705
79.114
213.859
256.736
161.995
112.314
219.779
188.723
141.648
146.564
113.163
85.657
127.958
114.909
198.214
133.215
131.576
287.667
140.275
137.435
190.055
104.39
178.032
79.356
250.571
123.115
247.026
190.38
219.114
131.753
135.922
855.826
145.195
82.337
141.758
78.649
117.482
90.986
101.864
120.33
137.019

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'RServer@AstonUniversity' @ vre.aston.ac.uk

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=94217&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'RServer@AstonUniversity' @ vre.aston.ac.uk






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[70,80[7550.0337840.0337840.003378
[80,90[8560.0405410.0743240.004054
[90,100[9540.0270270.1013510.002703
[100,110[105130.0878380.1891890.008784
[110,120[115120.0810810.270270.008108
[120,130[125170.1148650.3851350.011486
[130,140[135140.0945950.479730.009459
[140,150[145110.0743240.5540540.007432
[150,160[155110.0743240.6283780.007432
[160,170[16590.0608110.6891890.006081
[170,180[17590.0608110.750.006081
[180,190[18550.0337840.7837840.003378
[190,200[19560.0405410.8243240.004054
[200,210[20520.0135140.8378380.001351
[210,220[21560.0405410.8783780.004054
[220,230[22510.0067570.8851350.000676
[230,240[23510.0067570.8918920.000676
[240,250[24530.020270.9121620.002027
[250,260[25530.020270.9324320.002027
[260,270[26510.0067570.9391890.000676
[270,280[275000.9391890
[280,290[28530.020270.9594590.002027
[290,300[29510.0067570.9662160.000676
[300,310[30510.0067570.9729730.000676
[310,320[31510.0067570.979730.000676
[320,330[32510.0067570.9864860.000676
[330,340[335000.9864860
[340,350[345000.9864860
[350,360[355000.9864860
[360,370[365000.9864860
[370,380[37510.0067570.9932430.000676
[380,390[385000.9932430
[390,400]39510.00675710.000676

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[70,80[ & 75 & 5 & 0.033784 & 0.033784 & 0.003378 \tabularnewline
[80,90[ & 85 & 6 & 0.040541 & 0.074324 & 0.004054 \tabularnewline
[90,100[ & 95 & 4 & 0.027027 & 0.101351 & 0.002703 \tabularnewline
[100,110[ & 105 & 13 & 0.087838 & 0.189189 & 0.008784 \tabularnewline
[110,120[ & 115 & 12 & 0.081081 & 0.27027 & 0.008108 \tabularnewline
[120,130[ & 125 & 17 & 0.114865 & 0.385135 & 0.011486 \tabularnewline
[130,140[ & 135 & 14 & 0.094595 & 0.47973 & 0.009459 \tabularnewline
[140,150[ & 145 & 11 & 0.074324 & 0.554054 & 0.007432 \tabularnewline
[150,160[ & 155 & 11 & 0.074324 & 0.628378 & 0.007432 \tabularnewline
[160,170[ & 165 & 9 & 0.060811 & 0.689189 & 0.006081 \tabularnewline
[170,180[ & 175 & 9 & 0.060811 & 0.75 & 0.006081 \tabularnewline
[180,190[ & 185 & 5 & 0.033784 & 0.783784 & 0.003378 \tabularnewline
[190,200[ & 195 & 6 & 0.040541 & 0.824324 & 0.004054 \tabularnewline
[200,210[ & 205 & 2 & 0.013514 & 0.837838 & 0.001351 \tabularnewline
[210,220[ & 215 & 6 & 0.040541 & 0.878378 & 0.004054 \tabularnewline
[220,230[ & 225 & 1 & 0.006757 & 0.885135 & 0.000676 \tabularnewline
[230,240[ & 235 & 1 & 0.006757 & 0.891892 & 0.000676 \tabularnewline
[240,250[ & 245 & 3 & 0.02027 & 0.912162 & 0.002027 \tabularnewline
[250,260[ & 255 & 3 & 0.02027 & 0.932432 & 0.002027 \tabularnewline
[260,270[ & 265 & 1 & 0.006757 & 0.939189 & 0.000676 \tabularnewline
[270,280[ & 275 & 0 & 0 & 0.939189 & 0 \tabularnewline
[280,290[ & 285 & 3 & 0.02027 & 0.959459 & 0.002027 \tabularnewline
[290,300[ & 295 & 1 & 0.006757 & 0.966216 & 0.000676 \tabularnewline
[300,310[ & 305 & 1 & 0.006757 & 0.972973 & 0.000676 \tabularnewline
[310,320[ & 315 & 1 & 0.006757 & 0.97973 & 0.000676 \tabularnewline
[320,330[ & 325 & 1 & 0.006757 & 0.986486 & 0.000676 \tabularnewline
[330,340[ & 335 & 0 & 0 & 0.986486 & 0 \tabularnewline
[340,350[ & 345 & 0 & 0 & 0.986486 & 0 \tabularnewline
[350,360[ & 355 & 0 & 0 & 0.986486 & 0 \tabularnewline
[360,370[ & 365 & 0 & 0 & 0.986486 & 0 \tabularnewline
[370,380[ & 375 & 1 & 0.006757 & 0.993243 & 0.000676 \tabularnewline
[380,390[ & 385 & 0 & 0 & 0.993243 & 0 \tabularnewline
[390,400] & 395 & 1 & 0.006757 & 1 & 0.000676 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=94217&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][70,80[[/C][C]75[/C][C]5[/C][C]0.033784[/C][C]0.033784[/C][C]0.003378[/C][/ROW]
[ROW][C][80,90[[/C][C]85[/C][C]6[/C][C]0.040541[/C][C]0.074324[/C][C]0.004054[/C][/ROW]
[ROW][C][90,100[[/C][C]95[/C][C]4[/C][C]0.027027[/C][C]0.101351[/C][C]0.002703[/C][/ROW]
[ROW][C][100,110[[/C][C]105[/C][C]13[/C][C]0.087838[/C][C]0.189189[/C][C]0.008784[/C][/ROW]
[ROW][C][110,120[[/C][C]115[/C][C]12[/C][C]0.081081[/C][C]0.27027[/C][C]0.008108[/C][/ROW]
[ROW][C][120,130[[/C][C]125[/C][C]17[/C][C]0.114865[/C][C]0.385135[/C][C]0.011486[/C][/ROW]
[ROW][C][130,140[[/C][C]135[/C][C]14[/C][C]0.094595[/C][C]0.47973[/C][C]0.009459[/C][/ROW]
[ROW][C][140,150[[/C][C]145[/C][C]11[/C][C]0.074324[/C][C]0.554054[/C][C]0.007432[/C][/ROW]
[ROW][C][150,160[[/C][C]155[/C][C]11[/C][C]0.074324[/C][C]0.628378[/C][C]0.007432[/C][/ROW]
[ROW][C][160,170[[/C][C]165[/C][C]9[/C][C]0.060811[/C][C]0.689189[/C][C]0.006081[/C][/ROW]
[ROW][C][170,180[[/C][C]175[/C][C]9[/C][C]0.060811[/C][C]0.75[/C][C]0.006081[/C][/ROW]
[ROW][C][180,190[[/C][C]185[/C][C]5[/C][C]0.033784[/C][C]0.783784[/C][C]0.003378[/C][/ROW]
[ROW][C][190,200[[/C][C]195[/C][C]6[/C][C]0.040541[/C][C]0.824324[/C][C]0.004054[/C][/ROW]
[ROW][C][200,210[[/C][C]205[/C][C]2[/C][C]0.013514[/C][C]0.837838[/C][C]0.001351[/C][/ROW]
[ROW][C][210,220[[/C][C]215[/C][C]6[/C][C]0.040541[/C][C]0.878378[/C][C]0.004054[/C][/ROW]
[ROW][C][220,230[[/C][C]225[/C][C]1[/C][C]0.006757[/C][C]0.885135[/C][C]0.000676[/C][/ROW]
[ROW][C][230,240[[/C][C]235[/C][C]1[/C][C]0.006757[/C][C]0.891892[/C][C]0.000676[/C][/ROW]
[ROW][C][240,250[[/C][C]245[/C][C]3[/C][C]0.02027[/C][C]0.912162[/C][C]0.002027[/C][/ROW]
[ROW][C][250,260[[/C][C]255[/C][C]3[/C][C]0.02027[/C][C]0.932432[/C][C]0.002027[/C][/ROW]
[ROW][C][260,270[[/C][C]265[/C][C]1[/C][C]0.006757[/C][C]0.939189[/C][C]0.000676[/C][/ROW]
[ROW][C][270,280[[/C][C]275[/C][C]0[/C][C]0[/C][C]0.939189[/C][C]0[/C][/ROW]
[ROW][C][280,290[[/C][C]285[/C][C]3[/C][C]0.02027[/C][C]0.959459[/C][C]0.002027[/C][/ROW]
[ROW][C][290,300[[/C][C]295[/C][C]1[/C][C]0.006757[/C][C]0.966216[/C][C]0.000676[/C][/ROW]
[ROW][C][300,310[[/C][C]305[/C][C]1[/C][C]0.006757[/C][C]0.972973[/C][C]0.000676[/C][/ROW]
[ROW][C][310,320[[/C][C]315[/C][C]1[/C][C]0.006757[/C][C]0.97973[/C][C]0.000676[/C][/ROW]
[ROW][C][320,330[[/C][C]325[/C][C]1[/C][C]0.006757[/C][C]0.986486[/C][C]0.000676[/C][/ROW]
[ROW][C][330,340[[/C][C]335[/C][C]0[/C][C]0[/C][C]0.986486[/C][C]0[/C][/ROW]
[ROW][C][340,350[[/C][C]345[/C][C]0[/C][C]0[/C][C]0.986486[/C][C]0[/C][/ROW]
[ROW][C][350,360[[/C][C]355[/C][C]0[/C][C]0[/C][C]0.986486[/C][C]0[/C][/ROW]
[ROW][C][360,370[[/C][C]365[/C][C]0[/C][C]0[/C][C]0.986486[/C][C]0[/C][/ROW]
[ROW][C][370,380[[/C][C]375[/C][C]1[/C][C]0.006757[/C][C]0.993243[/C][C]0.000676[/C][/ROW]
[ROW][C][380,390[[/C][C]385[/C][C]0[/C][C]0[/C][C]0.993243[/C][C]0[/C][/ROW]
[ROW][C][390,400][/C][C]395[/C][C]1[/C][C]0.006757[/C][C]1[/C][C]0.000676[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=94217&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=94217&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
[70,80[7550.0337840.0337840.003378
[80,90[8560.0405410.0743240.004054
[90,100[9540.0270270.1013510.002703
[100,110[105130.0878380.1891890.008784
[110,120[115120.0810810.270270.008108
[120,130[125170.1148650.3851350.011486
[130,140[135140.0945950.479730.009459
[140,150[145110.0743240.5540540.007432
[150,160[155110.0743240.6283780.007432
[160,170[16590.0608110.6891890.006081
[170,180[17590.0608110.750.006081
[180,190[18550.0337840.7837840.003378
[190,200[19560.0405410.8243240.004054
[200,210[20520.0135140.8378380.001351
[210,220[21560.0405410.8783780.004054
[220,230[22510.0067570.8851350.000676
[230,240[23510.0067570.8918920.000676
[240,250[24530.020270.9121620.002027
[250,260[25530.020270.9324320.002027
[260,270[26510.0067570.9391890.000676
[270,280[275000.9391890
[280,290[28530.020270.9594590.002027
[290,300[29510.0067570.9662160.000676
[300,310[30510.0067570.9729730.000676
[310,320[31510.0067570.979730.000676
[320,330[32510.0067570.9864860.000676
[330,340[335000.9864860
[340,350[345000.9864860
[350,360[355000.9864860
[360,370[365000.9864860
[370,380[37510.0067570.9932430.000676
[380,390[385000.9932430
[390,400]39510.00675710.000676


Figures (Output of Computation)

Input Parameters & R Code

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