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 computationThu, 18 Dec 2014 17:07: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/2014/Dec/18/t14189225292uoyatixm3ba09o.htm/, Retrieved Fri, 17 May 2024 00:28:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=271147, Retrieved Fri, 17 May 2024 00:28:26 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bootstrap Plot - Central Tendency] [bootstrap plot] [2014-12-15 10:33:55] [7b9119a46b6eb1a22eecca7bc054a6e2]
- RMPD    [Histogram] [] [2014-12-18 17:07:51] [88f8137dd67cdcd531568536dca46410] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
139
158
128
224
105
159
167
165
159
119
163
153
148
188
149
244
150
132
161
105
97
166
111
145
162
163
109
148
125
116
149
138
148
159
164
176
202
214
188
110
48
54
50
124
121
221
150
153
154
94
156
151
157
194
159
39
100
187
105
111
162
99
186
183
138
101
177
126
101
139
114
114
162
111
75
82
159
158
67
121
32
117
165
147
165
150
154
126
149
145
109
120
172
132
169
172
114
156
167
2
113
165
165
118
173
158
155
49
220
122
151
44
141
152
103
107
175
154
110
143
131
167
137
121
168
149
94
51
168
145
140
109
66
119
164
132
126
83
142
93
117
166

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271147&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 Maurice George Kendall' @ kendall.wessa.net






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,20[1010.0070420.0070420.000352
[20,40[3020.0140850.0211270.000704
[40,60[5060.0422540.063380.002113
[60,80[7030.0211270.0845070.001056
[80,100[9070.0492960.1338030.002465
[100,120[110260.1830990.3169010.009155
[120,140[130200.1408450.4577460.007042
[140,160[150380.2676060.7253520.01338
[160,180[170270.1901410.9154930.009507
[180,200[19060.0422540.9577460.002113
[200,220[21020.0140850.9718310.000704
[220,240[23030.0211270.9929580.001056
[240,260]25010.00704210.000352

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,20[ & 10 & 1 & 0.007042 & 0.007042 & 0.000352 \tabularnewline
[20,40[ & 30 & 2 & 0.014085 & 0.021127 & 0.000704 \tabularnewline
[40,60[ & 50 & 6 & 0.042254 & 0.06338 & 0.002113 \tabularnewline
[60,80[ & 70 & 3 & 0.021127 & 0.084507 & 0.001056 \tabularnewline
[80,100[ & 90 & 7 & 0.049296 & 0.133803 & 0.002465 \tabularnewline
[100,120[ & 110 & 26 & 0.183099 & 0.316901 & 0.009155 \tabularnewline
[120,140[ & 130 & 20 & 0.140845 & 0.457746 & 0.007042 \tabularnewline
[140,160[ & 150 & 38 & 0.267606 & 0.725352 & 0.01338 \tabularnewline
[160,180[ & 170 & 27 & 0.190141 & 0.915493 & 0.009507 \tabularnewline
[180,200[ & 190 & 6 & 0.042254 & 0.957746 & 0.002113 \tabularnewline
[200,220[ & 210 & 2 & 0.014085 & 0.971831 & 0.000704 \tabularnewline
[220,240[ & 230 & 3 & 0.021127 & 0.992958 & 0.001056 \tabularnewline
[240,260] & 250 & 1 & 0.007042 & 1 & 0.000352 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=271147&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,20[[/C][C]10[/C][C]1[/C][C]0.007042[/C][C]0.007042[/C][C]0.000352[/C][/ROW]
[ROW][C][20,40[[/C][C]30[/C][C]2[/C][C]0.014085[/C][C]0.021127[/C][C]0.000704[/C][/ROW]
[ROW][C][40,60[[/C][C]50[/C][C]6[/C][C]0.042254[/C][C]0.06338[/C][C]0.002113[/C][/ROW]
[ROW][C][60,80[[/C][C]70[/C][C]3[/C][C]0.021127[/C][C]0.084507[/C][C]0.001056[/C][/ROW]
[ROW][C][80,100[[/C][C]90[/C][C]7[/C][C]0.049296[/C][C]0.133803[/C][C]0.002465[/C][/ROW]
[ROW][C][100,120[[/C][C]110[/C][C]26[/C][C]0.183099[/C][C]0.316901[/C][C]0.009155[/C][/ROW]
[ROW][C][120,140[[/C][C]130[/C][C]20[/C][C]0.140845[/C][C]0.457746[/C][C]0.007042[/C][/ROW]
[ROW][C][140,160[[/C][C]150[/C][C]38[/C][C]0.267606[/C][C]0.725352[/C][C]0.01338[/C][/ROW]
[ROW][C][160,180[[/C][C]170[/C][C]27[/C][C]0.190141[/C][C]0.915493[/C][C]0.009507[/C][/ROW]
[ROW][C][180,200[[/C][C]190[/C][C]6[/C][C]0.042254[/C][C]0.957746[/C][C]0.002113[/C][/ROW]
[ROW][C][200,220[[/C][C]210[/C][C]2[/C][C]0.014085[/C][C]0.971831[/C][C]0.000704[/C][/ROW]
[ROW][C][220,240[[/C][C]230[/C][C]3[/C][C]0.021127[/C][C]0.992958[/C][C]0.001056[/C][/ROW]
[ROW][C][240,260][/C][C]250[/C][C]1[/C][C]0.007042[/C][C]1[/C][C]0.000352[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=271147&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=271147&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,20[1010.0070420.0070420.000352
[20,40[3020.0140850.0211270.000704
[40,60[5060.0422540.063380.002113
[60,80[7030.0211270.0845070.001056
[80,100[9070.0492960.1338030.002465
[100,120[110260.1830990.3169010.009155
[120,140[130200.1408450.4577460.007042
[140,160[150380.2676060.7253520.01338
[160,180[170270.1901410.9154930.009507
[180,200[19060.0422540.9577460.002113
[200,220[21020.0140850.9718310.000704
[220,240[23030.0211270.9929580.001056
[240,260]25010.00704210.000352


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 0 ; par2 = 0 ;
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')
}