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 computationMon, 20 Dec 2010 13:04:59 +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/Dec/20/t129285020114mnar8b3rkgvyq.htm/, Retrieved Fri, 03 May 2024 20:28:35 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=112897, Retrieved Fri, 03 May 2024 20:28:35 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact108
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]
-   PD    [Notched Boxplots] [Notched Boxplot] [2010-12-20 13:04:59] [47bfda5353cd53c1cf7ea7aa9038654a] [Current]
Feedback Forum

Post a new message
Dataseries X:
11,04	16,46	25,00
11,02	16,49	25,09
11,03	16,59	25,03
11,17	16,58	25,21
11,19	16,60	25,33
11,15	16,55	25,23
11,13	16,57	25,13
11,06	16,51	25,03
11,01	16,50	25,03
11,03	16,49	25,15
10,99	16,44	25,18
10,94	16,26	24,90
11,00	16,33	25,18
11,06	16,72	25,25
11,06	16,75	25,28
11,05	16,74	25,32
11,04	16,84	25,27
11,15	16,79	25,22
11,20	16,66	25,14
11,16	16,69	25,41
11,30	16,84	25,72
11,23	16,86	25,66
11,25	16,76	25,65
11,25	16,72	25,27
11,12	16,29	23,90
11,14	16,29	24,06
11,17	16,46	24,33
11,25	16,54	24,39
11,27	16,70	24,39
11,34	16,82	24,49
11,39	16,88	24,83
11,44	16,89	25,08
11,46	16,92	25,11
11,49	16,88	25,13
11,51	16,91	25,17
11,48	16,80	25,11
11,49	16,78	25,35
11,52	17,03	25,36
11,56	17,18	25,35
11,58	17,12	25,34
11,58	17,11	25,39
11,58	17,14	25,58
11,60	17,17	25,71
11,62	17,21	25,66
11,62	17,22	25,74
11,64	17,19	25,73
11,67	17,15	25,72
11,66	17,10	25,55
11,72	17,21	25,71
11,82	17,33	25,92
11,90	17,30	25,93
12,04	17,33	26,00
12,08	17,35	26,02
12,15	17,43	26,08
12,19	17,46	26,17
12,22	17,50	26,18
12,23	17,54	26,21
12,25	17,56	26,28
12,26	17,44	26,34
12,27	17,41	26,17
12,34	17,72	26,38
12,38	17,79	26,36
12,42	17,83	26,27
12,43	17,76	26,26
12,48	17,95	26,49
12,50	17,91	26,99
12,50	17,96	27,14
12,49	17,98	27,10
12,46	17,89	27,01
12,45	17,88	26,93
12,45	17,91	26,97
12,38	17,51	26,35
12,42	17,63	26,93




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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Jenever10.9411.1611.5112.1912.5
Whisky16.2616.6916.9217.4317.98
Likeur23.925.1425.3926.1727.14

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Jenever & 10.94 & 11.16 & 11.51 & 12.19 & 12.5 \tabularnewline
Whisky & 16.26 & 16.69 & 16.92 & 17.43 & 17.98 \tabularnewline
Likeur & 23.9 & 25.14 & 25.39 & 26.17 & 27.14 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112897&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]Jenever[/C][C]10.94[/C][C]11.16[/C][C]11.51[/C][C]12.19[/C][C]12.5[/C][/ROW]
[ROW][C]Whisky[/C][C]16.26[/C][C]16.69[/C][C]16.92[/C][C]17.43[/C][C]17.98[/C][/ROW]
[ROW][C]Likeur[/C][C]23.9[/C][C]25.14[/C][C]25.39[/C][C]26.17[/C][C]27.14[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112897&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112897&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
Jenever10.9411.1611.5112.1912.5
Whisky16.2616.6916.9217.4317.98
Likeur23.925.1425.3926.1727.14







Boxplot Notches
Variablelower boundmedianupper bound
Jenever11.319527237053011.5111.7004727629470
Whisky16.783155490698316.9217.0568445093017
Likeur25.19952723705325.3925.580472762947

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Jenever & 11.3195272370530 & 11.51 & 11.7004727629470 \tabularnewline
Whisky & 16.7831554906983 & 16.92 & 17.0568445093017 \tabularnewline
Likeur & 25.199527237053 & 25.39 & 25.580472762947 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=112897&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]Jenever[/C][C]11.3195272370530[/C][C]11.51[/C][C]11.7004727629470[/C][/ROW]
[ROW][C]Whisky[/C][C]16.7831554906983[/C][C]16.92[/C][C]17.0568445093017[/C][/ROW]
[ROW][C]Likeur[/C][C]25.199527237053[/C][C]25.39[/C][C]25.580472762947[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=112897&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=112897&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
Jenever11.319527237053011.5111.7004727629470
Whisky16.783155490698316.9217.0568445093017
Likeur25.19952723705325.3925.580472762947



Parameters (Session):
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')