Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 22 Oct 2013 13:03:43 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Oct/22/t13824614901giapn09xpmwb9q.htm/, Retrieved Mon, 29 Apr 2024 01:19:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=218591, Retrieved Mon, 29 Apr 2024 01:19:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact78
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Vrouwen exentriek] [2013-10-22 17:03:43] [6fa3780586f9e7fabb61feec93beca03] [Current]
- R  D    [Notched Boxplots] [Vrouwen exentriek] [2013-10-22 17:08:01] [f12bfb29749f0c3f544bf278d0782c85]
- RMPD    [Survey Scores] [E1] [2013-10-22 17:12:20] [f12bfb29749f0c3f544bf278d0782c85]
- RMPD    [Survey Scores] [E2] [2013-10-22 17:16:47] [f12bfb29749f0c3f544bf278d0782c85]
- RMPD    [Survey Scores] [E3] [2013-10-22 17:18:57] [f12bfb29749f0c3f544bf278d0782c85]
- RMPD    [Random Number Generator - Log-Normal Distribution] [] [2013-10-22 17:23:46] [f12bfb29749f0c3f544bf278d0782c85]
Feedback Forum

Post a new message
Dataseries X:
120	21	21
28	19	23
24	25	27
27	17	27
23	20	22
28	22	28
27	21	27
19	17	16
28	17	24
11	22	20
25	25	22
20	15	20
20	22	24
24	21	19
25	16	23
28	28	27
24	22	21
21	21	19
22	12	19
20	25	26
20	24	28
23	24	24
21	25	24
12	25	25
23	26	16
28	22	25
24	24	24
24	17	23
25	20	26
21	15	22
26	24	25
28	26	27
21	21	12
27	25	15
22	23	21
23	28	24
24	18	19
22	21	21
23	21	21
25	23	24
21	15	18
22	23	19
20	21	18
21	10	23
19	21	20
26	18	25
20	19	21
22	22	22
23	24	22
22	15	20
24	18	23
23	26	25
23	21	25
27	23	26
21	16	20
23	22	26
25	16	21
23	19	22
22	20	16
28	25	25
28	21	23
20	21	21
18	16	16




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

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

As an alternative you can also use a 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' @ fisher.wessa.net







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
E1 & 18 & 21 & 23 & 25 & 28 \tabularnewline
E2 & 10 & 18 & 21 & 24 & 28 \tabularnewline
E3 & 15 & 20 & 22 & 25 & 28 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218591&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]E1[/C][C]18[/C][C]21[/C][C]23[/C][C]25[/C][C]28[/C][/ROW]
[ROW][C]E2[/C][C]10[/C][C]18[/C][C]21[/C][C]24[/C][C]28[/C][/ROW]
[ROW][C]E3[/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=218591&T=1

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

As an alternative you can also use a QR Code:  

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

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
E11821232528
E21018212428
E31520222528







Boxplot Notches
Variablelower boundmedianupper bound
E122.20375484352722323.7962451564728
E219.80563226529082122.1943677347092
E321.0046935544092222.995306445591

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
E1 & 22.2037548435272 & 23 & 23.7962451564728 \tabularnewline
E2 & 19.8056322652908 & 21 & 22.1943677347092 \tabularnewline
E3 & 21.004693554409 & 22 & 22.995306445591 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218591&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]E1[/C][C]22.2037548435272[/C][C]23[/C][C]23.7962451564728[/C][/ROW]
[ROW][C]E2[/C][C]19.8056322652908[/C][C]21[/C][C]22.1943677347092[/C][/ROW]
[ROW][C]E3[/C][C]21.004693554409[/C][C]22[/C][C]22.995306445591[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=218591&T=2

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

As an alternative you can also use a QR Code:  

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

Boxplot Notches
Variablelower boundmedianupper bound
E122.20375484352722323.7962451564728
E219.80563226529082122.1943677347092
E321.0046935544092222.995306445591



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