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 computationWed, 11 Nov 2009 09:20:00 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/11/t1257956476watr7yk4cqrwez8.htm/, Retrieved Thu, 25 Apr 2024 23:17:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55743, Retrieved Thu, 25 Apr 2024 23:17:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact147
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [notched boxplots 1] [2009-11-11 16:20:00] [b1ac221d009d6e5c29a4ef1869874933] [Current]
Feedback Forum

Post a new message
Dataseries X:
3595	2564
3914	3869
4159	4145
3676	4091
3794	4117
3446	3281
3504	2186
3958	3476
3353	4009
3480	3924
3098	3101
2944	2211
3389	2497
3497	3520
4404	4191
3849	8255
3734	3000
3060	2955
3507	1986
3287	3229
3215	3448
3764	3371
2734	3160
2837	2429
2766	2574
3851	2725
3289	3451
3848	3481
3348	3592
3682	3472
4058	2312
3655	3322
3811	4348
3341	3603
3032	2700
3475	2640
3353	2916
3186	3180
3902	4151
4164	4023
3499	3431
4145	3874
3796	2617
3711	3580
3949	5267
3740	3832
3243	3441
4407	3228
4814	3397
3908	3971
5250	4625
3937	4486
4004	4132
5560	4685
3922	3172
3759	4280
4138	4207
4634	4158
3996	3933
4308	3151
4143	3616
4429	4222
5219	4436
4929	4806
5755	4849
5592	5023
4163	3521
4962	4649
5208	5388
4755	5148
4491	4847
5732	3996
5731	4483
5040	4684
6102	5454
4904	4770
5369	5309
5578	5074
4619	3505
4731	4953
5011	5155
5299	5308
4146	5171
4625	4003
4736	4379




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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 & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55743&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]'Gwilym Jenkins' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55743&T=0

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
bouwver27343499392246346102
begonnen_geb19863229387444835454

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
bouwver & 2734 & 3499 & 3922 & 4634 & 6102 \tabularnewline
begonnen_geb & 1986 & 3229 & 3874 & 4483 & 5454 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55743&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]bouwver[/C][C]2734[/C][C]3499[/C][C]3922[/C][C]4634[/C][C]6102[/C][/ROW]
[ROW][C]begonnen_geb[/C][C]1986[/C][C]3229[/C][C]3874[/C][C]4483[/C][C]5454[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55743&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
bouwver3727.489304996939224116.5106950031
begonnen_geb3659.0956726573738744088.90432734263

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
bouwver & 3727.4893049969 & 3922 & 4116.5106950031 \tabularnewline
begonnen_geb & 3659.09567265737 & 3874 & 4088.90432734263 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55743&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]bouwver[/C][C]3727.4893049969[/C][C]3922[/C][C]4116.5106950031[/C][/ROW]
[ROW][C]begonnen_geb[/C][C]3659.09567265737[/C][C]3874[/C][C]4088.90432734263[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55743&T=2

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



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