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_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationSat, 16 Oct 2010 09:13:38 +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/Oct/16/t128722037530ubu3tx9li5i2g.htm/, Retrieved Sun, 28 Apr 2024 04:33:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=83674, Retrieved Sun, 28 Apr 2024 04:33:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Maximum-likelihood Fitting - Normal Distribution] [Normal distributi...] [2010-10-15 17:07:55] [6bc4f9343b7ea3ef5a59412d1f72bb2b]
- RMPD      [Notched Boxplots] [Extrinsic Men vs....] [2010-10-16 09:13:38] [985dc1be4332e19cbfb874db0b8f53d7] [Current]
-             [Notched Boxplots] [] [2010-10-19 12:56:39] [d87a19cd5db53e12ea62bda70b3bb267]
-   P           [Notched Boxplots] [] [2010-10-19 21:48:18] [f9eaed74daea918f73b9f505c5b1f19e]
- R P         [Notched Boxplots] [WS3.8] [2011-10-18 14:41:11] [9b13650c94c5192ca5135ec8a1fa39f7]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
23	20	17	21	23	21
24	28	17	19	20	23
22	24	18	25	20	27
24	27	20	17	24	27
27	23	28	20	22	22
27	28	22	22	20	28
24	27	16	21	25	27
23	19	18	17	23	16
27	28	14	17	22	24
28	11	11	22	24	20
27	25	27	25	25	22
24	20	22	15	28	20
25	20	23	22	25	24
24	24	24	21	28	19
20	25	14	16	21	23
26	28	23	28	27	27
23	24	24	22	14	21
23	21	24	21	14	19
20	22	8	12	27	19
24	20	23	25	21	26
23	20	21	24	21	28
18	23	24	24	12	24
23	21	25	25	28	24
26	12	23	25	22	25
26	23	21	26	27	16
23	28	21	22	26	25
22	24	26	24	22	24
20	24	18	17	24	23
25	25	17	20	22	26
22	21	15	15	21	22
23	26	13	24	23	25
25	28	26	26	28	27
23	21	16	21	10	12
22	27	21	25	21	15
24	22	20	23	21	21
25	23	14	28	24	24
17	24	20	18	25	19
20	22	22	21	23	21
23	23	20	21	21	21
20	25	18	23	17	24
24	21	24	15	25	18
24	22	20	23	23	19
28	20	19	21	28	18
25	21	23	10	19	23
25	19	26	21	26	20
18	26	22	18	18	25
17	20	20	19	18	21
22	22	13	22	21	22
25	23	22	24	22	22
26	22	22	15	27	20
19	24	20	18	22	23
25	23	6	26	28	25
21	23	21	21	26	25
13	27	20	23	10	26
25	21	23	16	22	20
26	23	20	22	21	26
25	25	24	16	24	21
25	23	22	19	25	22
21	22	18	20	20	16
24	28	23	25	23	25
21	28	21	21	24	23
25	20	24	21	24	21
20	18	21	16	20	16
23	NA	20	NA	20	NA
28	NA	11	NA	27	NA
23	NA	22	NA	23	NA
28	NA	27	NA	26	NA
24	NA	25	NA	23	NA
18	NA	18	NA	17	NA
20	NA	20	NA	21	NA
28	NA	24	NA	25	NA
21	NA	27	NA	27	NA
25	NA	21	NA	24	NA
18	NA	18	NA	27	NA
21	NA	15	NA	21	NA
22	NA	24	NA	24	NA
24	NA	22	NA	21	NA
15	NA	14	NA	15	NA
28	NA	28	NA	25	NA
23	NA	26	NA	22	NA
26	NA	17	NA	24	NA
20	NA	18	NA	23	NA
22	NA	11	NA	23	NA
26	NA	26	NA	22	NA
23	NA	23	NA	22	NA
21	NA	15	NA	24	NA
26	NA	22	NA	24	NA
23	NA	26	NA	25	NA
27	NA	20	NA	26	NA
19	NA	18	NA	21	NA
22	NA	19	NA	26	NA
25	NA	23	NA	28	NA
25	NA	24	NA	18	NA
25	NA	23	NA	20	NA
19	NA	27	NA	25	NA
25	NA	23	NA	22	NA
22	NA	18	NA	21	NA
20	NA	16	NA	18	NA

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=83674&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=83674&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83674&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






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
ME11521232528
VE11821232528
ME21118212328
VE21018212428
ME31521232528
VE31520222528

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
ME1 & 15 & 21 & 23 & 25 & 28 \tabularnewline
VE1 & 18 & 21 & 23 & 25 & 28 \tabularnewline
ME2 & 11 & 18 & 21 & 23 & 28 \tabularnewline
VE2 & 10 & 18 & 21 & 24 & 28 \tabularnewline
ME3 & 15 & 21 & 23 & 25 & 28 \tabularnewline
VE3 & 15 & 20 & 22 & 25 & 28 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83674&T=1

[TABLE]
[ROW][C]Boxplot statistics[/C][/ROW]
[ROW][C]Variable[/C][C]lower whisker[/C][C]lower hinge[/C][C]median[/C][C]upper hinge[/C][C]upper whisker[/C][/ROW]
[ROW][C]ME1[/C][C]15[/C][C]21[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]VE1[/C][C]18[/C][C]21[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]ME2[/C][C]11[/C][C]18[/C][C]21[/C][C]23[/C][C]28[/C][/ROW]
[ROW][C]VE2[/C][C]10[/C][C]18[/C][C]21[/C][C]24[/C][C]28[/C][/ROW]
[ROW][C]ME3[/C][C]15[/C][C]21[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]VE3[/C][C]15[/C][C]20[/C][C]22[/C][C]25[/C][C]28[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83674&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83674&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:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
ME11521232528
VE11821232528
ME21118212328
VE21018212428
ME31521232528
VE31520222528






Boxplot Notches
Variablelower boundmedianupper bound
ME122.3615835918432323.638416408157
VE122.20375484352722323.7962451564728
ME220.20197948980382121.7980205101962
VE219.80563226529082122.1943677347092
ME322.3615835918432323.638416408157
VE321.00469355440902222.9953064455910

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
ME1 & 22.361583591843 & 23 & 23.638416408157 \tabularnewline
VE1 & 22.2037548435272 & 23 & 23.7962451564728 \tabularnewline
ME2 & 20.2019794898038 & 21 & 21.7980205101962 \tabularnewline
VE2 & 19.8056322652908 & 21 & 22.1943677347092 \tabularnewline
ME3 & 22.361583591843 & 23 & 23.638416408157 \tabularnewline
VE3 & 21.0046935544090 & 22 & 22.9953064455910 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=83674&T=2

[TABLE]
[ROW][C]Boxplot Notches[/C][/ROW]
[ROW][C]Variable[/C][C]lower bound[/C][C]median[/C][C]upper bound[/C][/ROW]
[ROW][C]ME1[/C][C]22.361583591843[/C][C]23[/C][C]23.638416408157[/C][/ROW]
[ROW][C]VE1[/C][C]22.2037548435272[/C][C]23[/C][C]23.7962451564728[/C][/ROW]
[ROW][C]ME2[/C][C]20.2019794898038[/C][C]21[/C][C]21.7980205101962[/C][/ROW]
[ROW][C]VE2[/C][C]19.8056322652908[/C][C]21[/C][C]22.1943677347092[/C][/ROW]
[ROW][C]ME3[/C][C]22.361583591843[/C][C]23[/C][C]23.638416408157[/C][/ROW]
[ROW][C]VE3[/C][C]21.0046935544090[/C][C]22[/C][C]22.9953064455910[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=83674&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=83674&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:

Boxplot Notches
Variablelower boundmedianupper bound
ME122.3615835918432323.638416408157
VE122.20375484352722323.7962451564728
ME220.20197948980382121.7980205101962
VE219.80563226529082122.1943677347092
ME322.3615835918432323.638416408157
VE321.00469355440902222.9953064455910


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ;
R code (references can be found in the software module):
z <- as.data.frame(t(y))
bitmap(file='test1.png')
(r<-boxplot(z ,xlab=xlab,ylab=ylab,main=main,notch=TRUE,col=par1))
dev.off()
load(file='createtable')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,hyperlink('overview.htm','Boxplot statistics','Boxplot overview'),6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,hyperlink('lower_whisker.htm','lower whisker','definition of lower whisker'),1,TRUE)
a<-table.element(a,hyperlink('lower_hinge.htm','lower hinge','definition of lower hinge'),1,TRUE)
a<-table.element(a,hyperlink('central_tendency.htm','median','definitions about measures of central tendency'),1,TRUE)
a<-table.element(a,hyperlink('upper_hinge.htm','upper hinge','definition of upper hinge'),1,TRUE)
a<-table.element(a,hyperlink('upper_whisker.htm','upper whisker','definition of upper whisker'),1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
for (j in 1:5)
{
a<-table.element(a,r$stats[j,i])
}
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable.tab')
a<-table.start()
a<-table.row.start(a)
a<-table.element(a,'Boxplot Notches',4,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower bound',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper bound',1,TRUE)
a<-table.row.end(a)
for (i in 1:length(y[,1]))
{
a<-table.row.start(a)
a<-table.element(a,dimnames(t(x))[[2]][i],1,TRUE)
a<-table.element(a,r$conf[1,i])
a<-table.element(a,r$stats[3,i])
a<-table.element(a,r$conf[2,i])
a<-table.row.end(a)
}
a<-table.end(a)
table.save(a,file='mytable1.tab')