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 computationTue, 03 Nov 2009 13:37:41 -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/03/t1257280756cn949alphry4s6h.htm/, Retrieved Wed, 01 May 2024 20:20:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=53398, Retrieved Wed, 01 May 2024 20:20:08 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsWS6Notched boxplots
Estimated Impact198

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-    D    [Notched Boxplots] [] [2009-11-03 20:37:41] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
9356	7291		14271	4071
9337	6820		14013	4351
10149	8031		15912	4871
9788	7862		14290	4649
9770	7357		14744	4922
9911	7213		14721	4879
9429	7079		13918	4853
8775	7012		13263	4545
10189	7319		15660	4733
10529	8148		15629	5191
9914	7599		15113	4983
9790	6908		14526	4593
9625	7878		15132	4656
9729	7407		14908	4513
10589	7911		16167	4857
9611	7323		14122	4681
9388	7179		13985	4897
9510	6758		14236	4547
9690	6934		13921	4692
8434	6696		12394	4390
9844	7688		15454	5341
10601	8296		16146	5415
9942	7697		15107	4890
10229	7907		14593	5120
9381	7592		14695	4422
9635	7710		14513	4797
11228	9011		17071	5689
9999	8225		15179	5171
10089	7733		15460	4265
11622	8062		17173	5215
10533	7859		15938	4874
9965	8221		15003	4590
11567	8330		18216	4994
11321	8868		17847	4988
11686	9053		18029	5110
11747	8811		17281	5141
10595	8120		16706	4395
10751	7953		16750	4523
12199	8878		18912	5306
11690	8601		17763	5365
10978	8361		16736	5496
11753	9116		18061	5647
10839	9310		16713	5443
10518	9891		16769	5546
12183	10147		19514	5912
11967	10317		19251	5665
12363	10682		19951	5963
12359	10276		19052	5861
12162	10614		19555	5366
12096	9413		19083	5619
14325	11068		22534	6721
12670	9772		18854	6054
13865	10350		19801	6619
13563	10541		20346	6856
12734	10049		18169	6193
12464	10714		19087	6317
13389	10759		20842	6618
13961	11684		21602	6585
14088	11462		22360	6852
13143	10485		20334	6586
13413	11056		21215	6154
13579	10184		20530	6193
15388	11082		23152	7606
13708	10554		20134	6588
14689	11315		21193	7143
14883	10847		21628	7629
13991	11104		20823	7041
13854	11026		20493	7146
14364	11073		22106	7200
15672	12073		24178	7739
15904	12328		24958	7953
14016	11172		21620	7082

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'RServer@AstonUniversity' @ vre.aston.ac.uk
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53398&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53398&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53398&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'RServer@AstonUniversity' @ vre.aston.ac.uk
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
InvEU84349912.511274.51326615904
InvnietEU66967703.5870610547.512328
UitvEU12394150551712220042.524958
Uivniet-EU407148255323.562557953

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
InvEU & 8434 & 9912.5 & 11274.5 & 13266 & 15904 \tabularnewline
InvnietEU & 6696 & 7703.5 & 8706 & 10547.5 & 12328 \tabularnewline
UitvEU & 12394 & 15055 & 17122 & 20042.5 & 24958 \tabularnewline
Uivniet-EU & 4071 & 4825 & 5323.5 & 6255 & 7953 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53398&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]InvEU[/C][C]8434[/C][C]9912.5[/C][C]11274.5[/C][C]13266[/C][C]15904[/C][/ROW]
[ROW][C]InvnietEU[/C][C]6696[/C][C]7703.5[/C][C]8706[/C][C]10547.5[/C][C]12328[/C][/ROW]
[ROW][C]UitvEU[/C][C]12394[/C][C]15055[/C][C]17122[/C][C]20042.5[/C][C]24958[/C][/ROW]
[ROW][C]Uivniet-EU[/C][C]4071[/C][C]4825[/C][C]5323.5[/C][C]6255[/C][C]7953[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53398&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53398&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
InvEU84349912.511274.51326615904
InvnietEU66967703.5870610547.512328
UitvEU12394150551712220042.524958
Uivniet-EU407148255323.562557953






Boxplot Notches
Variablelower boundmedianupper bound
InvEU10650.062251113311274.511898.9377488867
InvnietEU8176.4335894337787069235.56641056623
UitvEU16193.30363125911712218050.6963687409
Uivniet-EU5057.227156431195323.55589.77284356881

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
InvEU & 10650.0622511133 & 11274.5 & 11898.9377488867 \tabularnewline
InvnietEU & 8176.43358943377 & 8706 & 9235.56641056623 \tabularnewline
UitvEU & 16193.3036312591 & 17122 & 18050.6963687409 \tabularnewline
Uivniet-EU & 5057.22715643119 & 5323.5 & 5589.77284356881 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=53398&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]InvEU[/C][C]10650.0622511133[/C][C]11274.5[/C][C]11898.9377488867[/C][/ROW]
[ROW][C]InvnietEU[/C][C]8176.43358943377[/C][C]8706[/C][C]9235.56641056623[/C][/ROW]
[ROW][C]UitvEU[/C][C]16193.3036312591[/C][C]17122[/C][C]18050.6963687409[/C][/ROW]
[ROW][C]Uivniet-EU[/C][C]5057.22715643119[/C][C]5323.5[/C][C]5589.77284356881[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=53398&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=53398&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
InvEU10650.062251113311274.511898.9377488867
InvnietEU8176.4335894337787069235.56641056623
UitvEU16193.30363125911712218050.6963687409
Uivniet-EU5057.227156431195323.55589.77284356881


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