FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationWed, 11 Nov 2009 03:49:21 -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/t1257936627w6sv8khutjwz8jw.htm/, Retrieved Tue, 16 Apr 2024 22:16:07 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55480, Retrieved Tue, 16 Apr 2024 22:16:07 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2009-11-11 10:49:21] [e76c6d261190c0179bc6006a5cdb804c] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100	100	100	100
100	100,2738004	104,011209	98,53703704
100	97,74002424	107,3498799	95,08333333
100	93,72278828	105,0360288	94,34259259
100	89,72126218	104,1953563	91,44444444
100	87,43435522	105,692554	94,11111111
100	107,2955474	103,5868695	91,72222222
100	100,0869653	101,6333066	92,62037037
100	96,55617398	97,39791833	97,81481481
100	104,2826204	96,37309848	94,63888889
100	91,2187486	98,41473179	93,07407407
100	84,9544414	98,1265012	97,33333333
100	107,7365456	96,19695757	97,89814815
100	99,56966201	94,36349079	100,1944444
110,5	107,1081512	94,92393915	94,13888889
112,5	101,2180753	96,90152122	100,9351852
112,5	98,27359846	95,58046437	100,8888889
122,5	99,59939854	96,23698959	101,2407407
125	118,2301719	98,24659728	102,3981481
125	96,33511378	102,2417934	97,34259259
132	109,0685174	101,2810248	95,09259259
137,5	111,065353	101,5532426	96,28703704
146,5	98,60687194	102,570056	99,44444444
150	90,69863997	101,897518	95,02777778
158,5	109,2093451	100,968775	91,50925926
162,5	111,8323309	103,1305044	94,48148148
169,5	111,9956012	105,7886309	94,4537037
175	97,30800305	104,0752602	96,44444444
175	106,1773419	104,6757406	97,75
182,5	104,2130482	106,0208167	94,12962963
187,5	119,7910588	108,2145717	93,2037037
187,5	104,3280668	108,1745396	93,67592593
195	111,2712644	107,4379504	92,34259259
200	116,9509403	109,8158527	95,92592593
200	110,1945779	109,0632506	93,82407407
200	99,50738363	111,2570056	98,76851852
200	111,1674671	113,9071257	100,7685185
200	124,3323309	117,5660528	99,94444444
200	115,9404596	116,6533227	103,8148148
200	100,304098	117,8382706	104,0925926
200	117,2993626	118,0784628	106,3240741
200	118,7446699	124,3154524	102,8333333
200	119,9245927	126,1008807	102,0277778
200	128,7776606	124,5556445	99,69444444
200	119,7512231	124,5236189	97,93518519
209	134,0909601	126,2610088	100,5462963
212,5	125,6390547	119,8959167	97,91666667
212,5	102,5298487	115,0440352	98,88888889
198,5	127,8485345	106,6613291	101,1666667
171	125,2384533	101,93755	109,0833333
137,5	100,1066026	107,6781425	104,0833333
115,5	91,86621931	105,9967974	114,3240741
100	89,39921002	102,3618895	117,5833333
83	92,27355357	104,4835869	113,0925926
65,5	99,47147538	105,6044836	111,7222222
54,5	93,37829346	109,2874299	111,8981481
50	90,87425378	112,2177742	110,1296296
50	102,4064141	112,7942354	109,1944444
50	98,58162395	114,2353883	144,1388889
50	88,85497554	116,5892714	149,3981481

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55480&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]2 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=55480&T=0

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






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Rente50100134.75199.25212.5
Uitvoer84.954441497.524013645102.4681314111.91396605128.7776606
Wisselkoers94.36349079101.5932746105.6485188112.5060048126.2610088
Reserves91.4444444494.56018518598.65277778102.6157407114.3240741

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Rente & 50 & 100 & 134.75 & 199.25 & 212.5 \tabularnewline
Uitvoer & 84.9544414 & 97.524013645 & 102.4681314 & 111.91396605 & 128.7776606 \tabularnewline
Wisselkoers & 94.36349079 & 101.5932746 & 105.6485188 & 112.5060048 & 126.2610088 \tabularnewline
Reserves & 91.44444444 & 94.560185185 & 98.65277778 & 102.6157407 & 114.3240741 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55480&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]Rente[/C][C]50[/C][C]100[/C][C]134.75[/C][C]199.25[/C][C]212.5[/C][/ROW]
[ROW][C]Uitvoer[/C][C]84.9544414[/C][C]97.524013645[/C][C]102.4681314[/C][C]111.91396605[/C][C]128.7776606[/C][/ROW]
[ROW][C]Wisselkoers[/C][C]94.36349079[/C][C]101.5932746[/C][C]105.6485188[/C][C]112.5060048[/C][C]126.2610088[/C][/ROW]
[ROW][C]Reserves[/C][C]91.44444444[/C][C]94.560185185[/C][C]98.65277778[/C][C]102.6157407[/C][C]114.3240741[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55480&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55480&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
Rente50100134.75199.25212.5
Uitvoer84.954441497.524013645102.4681314111.91396605128.7776606
Wisselkoers94.36349079101.5932746105.6485188112.5060048126.2610088
Reserves91.4444444494.56018518598.65277778102.6157407114.3240741






Boxplot Notches
Variablelower boundmedianupper bound
Rente114.505270552149134.75154.994729447851
Uitvoer99.5329103097565102.4681314105.403352490244
Wisselkoers103.422571490817105.6485188107.874466109183
Reserves97.00962874268798.65277778100.295926817313

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Rente & 114.505270552149 & 134.75 & 154.994729447851 \tabularnewline
Uitvoer & 99.5329103097565 & 102.4681314 & 105.403352490244 \tabularnewline
Wisselkoers & 103.422571490817 & 105.6485188 & 107.874466109183 \tabularnewline
Reserves & 97.009628742687 & 98.65277778 & 100.295926817313 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55480&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]Rente[/C][C]114.505270552149[/C][C]134.75[/C][C]154.994729447851[/C][/ROW]
[ROW][C]Uitvoer[/C][C]99.5329103097565[/C][C]102.4681314[/C][C]105.403352490244[/C][/ROW]
[ROW][C]Wisselkoers[/C][C]103.422571490817[/C][C]105.6485188[/C][C]107.874466109183[/C][/ROW]
[ROW][C]Reserves[/C][C]97.009628742687[/C][C]98.65277778[/C][C]100.295926817313[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55480&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55480&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
Rente114.505270552149134.75154.994729447851
Uitvoer99.5329103097565102.4681314105.403352490244
Wisselkoers103.422571490817105.6485188107.874466109183
Reserves97.00962874268798.65277778100.295926817313


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = yellow ;
Parameters (R input):
par1 = yellow ;
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')