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 computationSat, 13 Dec 2014 14:42:58 +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/13/t14184818621ff1iriwl03dti5.htm/, Retrieved Thu, 16 May 2024 08:39:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267128, Retrieved Thu, 16 May 2024 08:39:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Screen Width and ...] [2010-09-25 10:03:47] [b98453cac15ba1066b407e146608df68]
- R  D  [Notched Boxplots] [Arbitrary Reducti...] [2010-10-04 16:32:21] [b98453cac15ba1066b407e146608df68]
- RM      [Notched Boxplots] [WS1] [2014-10-02 11:24:00] [bcd8153d44f369b7624d3c1b4621c4c3]
- RMPD      [Histogram] [paper histo muner...] [2014-12-13 14:38:31] [bcd8153d44f369b7624d3c1b4621c4c3]
- R             [Histogram] [] [2014-12-13 14:42:58] [6e98989d1e11d52934121e5a163a7817] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
21
26
22
22
18
23
12
20
22
21
19
22
15
20
19
18
15
20
21
21
15
16
23
21
18
25
9
30
20
23
16
16
19
25
25
18
23
21
10
14
22
26
23
23
24
24
18
23
15
19
16
25
23
17
19
21
18
27
21
13
8
29
28
23
21
19
19
20
18
19
17
19
25
19
22
23
26
14
28
16
24
20
12
24
22
12
22
20
10
23
17
22
24
18
21
20
20
22
19
20
26
23
24
21
21
19
8
17
20
11
8
15
18
18
19
19
23
22
21
25
30
17
27
23
23
18
18
23
19
15
20
16
24
25
25
19
19
16
19
19
23
21
22
19
20
20
3
23
14
23
20
15
13
16
7
24
17
24
24
19
25
20
28
23
27
18
28
21
19
23
27
22
28
25
21
22
28
20
29
25
25
20
20
16
20
20
23
18
25
18
19
25
25
25
24
19
26
10
17
13
17
30
25
4
16
21
23
22
17
20
20
22
16
23
16
0
18
25
23
12
18
24
11
18
14
23
24
29
18
15
29
16
19
22
16
23
23
19
4
20
24
20
4
24
22
16
3
15
24
17
20
27
23
26
23
17
20
22
19
24
19
23
15
27
26
22
22
18
15
22
27
10
20
17
23
19
13
27
23
16
25
2
26
20
23
22
24
22
17
23
23
28
29
21
24
20
7
19
28
18
26
21
19
20
NA
23
24
16
19
24
21
16
16
21
NA
28
16
23
26
29
18
19
19
16
16
16
18
22
14
20
15
22
24
16
19
24
19
15
11
15
17
20
21
16
17
20
15
21
16
18
25
21
21
16
20
24
28
27
22
20
27
17
22
23
15
22
13
21
18
22
19
15
20
17
21
23
20
18
22
24
24
18
27
19
20
15
20
27
20
20
13
21
23
26
24
25
18
21
23
16
19
20
25
22
20
25
27
20
18
26
26
24
27
16
15
25
27
18
16
18
23
21
21
14
24
18
16
25
22
13
20
17
23
22
23
22
23
10
18
25
26
14
23
22
23
19
14
26
24
21
17
16
15
11
NA
19
21
20
16
19
16
11
22
20
26
26
20
24
20
15
23
25
27
23
20
25
24
22
27
20
17
22
26
19
19
24
22
16
22
23
19
20
16
19
20
15
22
22
12
15
21
26
27
23
21
22
26
24
27
18
18
25
12
19
24
17
22
15
20
24
17
24
15
20
20
17
11
21
28
14
13
12
21
13
19
23
27
25
22
27
16
20
18
19
17
10
11
16
13
14
12
15
19
15
14
14
10
13
21
11
14
20
7
22
24
16
22
25
5
19
23
13
10
12
21
22
20
17
20
13
9
22
15
12
25
14
14
17
9
10
15
15
15
14
21
13
18
20
16
28
12
20
26
18
21
23
13
22
14
23
16
14
22
19
23
16
20
8
16
11
16
10
17
16
17
10
15
13
19
14
18
25
10
22
15
18
22
18
15
20
18
6
17
12
12
19
23
26
28
19
16
3
11
15
22
12
21
25
12
14
24
12
13
15
17
12
28
25
14
21
18
23
16
15
5
19
22
19
12
22
18
24
19
4
20
24
26
22
19
9
22
18
16
19
20
21
17
9
26
28
13
16
22
18
21
10
15
15
13
10
23
21
14
17
15
15
17
26
12
14
26
18
17
20
16
19
12
20
19
25
19
15
12

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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267128&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267128&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267128&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'Herman Ole Andreas Wold' @ wold.wessa.net






Frequency Table (Histogram)
BinsMidpointAbs. FrequencyRel. FrequencyCumul. Rel. Freq.Density
[0,2[110.0013640.0013640.000685
[2,4[340.0054570.0068210.00274
[4,6[560.0081860.0150070.00411
[6,8[740.0054570.0204640.00274
[8,10[990.0122780.0327420.006164
[10,12[11240.0327420.0654840.016438
[12,14[13400.054570.1200550.027397
[14,16[15650.0886770.2087310.044521
[16,18[17840.1145980.3233290.057534
[18,20[191100.1500680.4733970.075342
[20,22[211150.1568890.6302860.078767
[22,24[231200.1637110.7939970.082192
[24,26[25770.1050480.8990450.05274
[26,28[27470.064120.9631650.032192
[28,30]29240.0327420.9959070.016438

\begin{tabular}{lllllllll}
\hline
Frequency Table (Histogram) \tabularnewline
Bins & Midpoint & Abs. Frequency & Rel. Frequency & Cumul. Rel. Freq. & Density \tabularnewline
[0,2[ & 1 & 1 & 0.001364 & 0.001364 & 0.000685 \tabularnewline
[2,4[ & 3 & 4 & 0.005457 & 0.006821 & 0.00274 \tabularnewline
[4,6[ & 5 & 6 & 0.008186 & 0.015007 & 0.00411 \tabularnewline
[6,8[ & 7 & 4 & 0.005457 & 0.020464 & 0.00274 \tabularnewline
[8,10[ & 9 & 9 & 0.012278 & 0.032742 & 0.006164 \tabularnewline
[10,12[ & 11 & 24 & 0.032742 & 0.065484 & 0.016438 \tabularnewline
[12,14[ & 13 & 40 & 0.05457 & 0.120055 & 0.027397 \tabularnewline
[14,16[ & 15 & 65 & 0.088677 & 0.208731 & 0.044521 \tabularnewline
[16,18[ & 17 & 84 & 0.114598 & 0.323329 & 0.057534 \tabularnewline
[18,20[ & 19 & 110 & 0.150068 & 0.473397 & 0.075342 \tabularnewline
[20,22[ & 21 & 115 & 0.156889 & 0.630286 & 0.078767 \tabularnewline
[22,24[ & 23 & 120 & 0.163711 & 0.793997 & 0.082192 \tabularnewline
[24,26[ & 25 & 77 & 0.105048 & 0.899045 & 0.05274 \tabularnewline
[26,28[ & 27 & 47 & 0.06412 & 0.963165 & 0.032192 \tabularnewline
[28,30] & 29 & 24 & 0.032742 & 0.995907 & 0.016438 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267128&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,2[[/C][C]1[/C][C]1[/C][C]0.001364[/C][C]0.001364[/C][C]0.000685[/C][/ROW]
[ROW][C][2,4[[/C][C]3[/C][C]4[/C][C]0.005457[/C][C]0.006821[/C][C]0.00274[/C][/ROW]
[ROW][C][4,6[[/C][C]5[/C][C]6[/C][C]0.008186[/C][C]0.015007[/C][C]0.00411[/C][/ROW]
[ROW][C][6,8[[/C][C]7[/C][C]4[/C][C]0.005457[/C][C]0.020464[/C][C]0.00274[/C][/ROW]
[ROW][C][8,10[[/C][C]9[/C][C]9[/C][C]0.012278[/C][C]0.032742[/C][C]0.006164[/C][/ROW]
[ROW][C][10,12[[/C][C]11[/C][C]24[/C][C]0.032742[/C][C]0.065484[/C][C]0.016438[/C][/ROW]
[ROW][C][12,14[[/C][C]13[/C][C]40[/C][C]0.05457[/C][C]0.120055[/C][C]0.027397[/C][/ROW]
[ROW][C][14,16[[/C][C]15[/C][C]65[/C][C]0.088677[/C][C]0.208731[/C][C]0.044521[/C][/ROW]
[ROW][C][16,18[[/C][C]17[/C][C]84[/C][C]0.114598[/C][C]0.323329[/C][C]0.057534[/C][/ROW]
[ROW][C][18,20[[/C][C]19[/C][C]110[/C][C]0.150068[/C][C]0.473397[/C][C]0.075342[/C][/ROW]
[ROW][C][20,22[[/C][C]21[/C][C]115[/C][C]0.156889[/C][C]0.630286[/C][C]0.078767[/C][/ROW]
[ROW][C][22,24[[/C][C]23[/C][C]120[/C][C]0.163711[/C][C]0.793997[/C][C]0.082192[/C][/ROW]
[ROW][C][24,26[[/C][C]25[/C][C]77[/C][C]0.105048[/C][C]0.899045[/C][C]0.05274[/C][/ROW]
[ROW][C][26,28[[/C][C]27[/C][C]47[/C][C]0.06412[/C][C]0.963165[/C][C]0.032192[/C][/ROW]
[ROW][C][28,30][/C][C]29[/C][C]24[/C][C]0.032742[/C][C]0.995907[/C][C]0.016438[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267128&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267128&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,2[110.0013640.0013640.000685
[2,4[340.0054570.0068210.00274
[4,6[560.0081860.0150070.00411
[6,8[740.0054570.0204640.00274
[8,10[990.0122780.0327420.006164
[10,12[11240.0327420.0654840.016438
[12,14[13400.054570.1200550.027397
[14,16[15650.0886770.2087310.044521
[16,18[17840.1145980.3233290.057534
[18,20[191100.1500680.4733970.075342
[20,22[211150.1568890.6302860.078767
[22,24[231200.1637110.7939970.082192
[24,26[25770.1050480.8990450.05274
[26,28[27470.064120.9631650.032192
[28,30]29240.0327420.9959070.016438






Summary Statistics
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
   0.00   16.00   20.00   19.34   23.00   30.00       3 


\begin{tabular}{lllllllll}
\hline
Summary Statistics \tabularnewline

> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
   0.00   16.00   20.00   19.34   23.00   30.00       3 

 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267128&T=2

[TABLE]
[ROW][C]Summary Statistics[/C][/ROW]
[ROW][C]
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
   0.00   16.00   20.00   19.34   23.00   30.00       3 

[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267128&T=2

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

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


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

Summary Statistics
> summary(x)
   Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
   0.00   16.00   20.00   19.34   23.00   30.00       3


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):
par4 <- 'Unknown'
par3 <- 'FALSE'
par2 <- 'grey'
par1 <- ''
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')
}

a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Summary Statistics',1,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,paste('
',RC.texteval('summary(x)'),'
',sep=''))
a<-table.row.end(a)
a<-table.end(a)
table.save(a,file='mytable1.tab')