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 computationSun, 08 Nov 2009 10:36:11 -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/08/t1257701832evoq53bzxfj21zw.htm/, Retrieved Sat, 04 May 2024 10:35:29 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=54615, Retrieved Sat, 04 May 2024 10:35:29 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact129
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2009-11-08 17:36:11] [6dfcce621b31349cab7f0d189e6f8a9d] [Current]
Feedback Forum

Post a new message
Dataseries X:
116222	344744	31899	492865
110924	338653	31384	480961
103753	327532	30650	461935
99983	326225	30400	456608
93302	318672	30003	441977
91496	317756	29896	439148
119321	337302	31557	488180
139261	349420	31883	520564
133739	336923	30830	501492
123913	330758	30354	485025
113438	321002	29756	464196
109416	320820	29934	460170
109406	327032	30599	467037
105645	324047	30378	460070
101328	316735	29925	447988
97686	315710	29471	442867
93093	313427	29567	436087
91382	310527	29419	431328
122257	330962	30796	484015
139183	339015	31475	509673
139887	341332	31708	512927
131822	339092	31917	502831
116805	323308	30871	470984
113706	325849	31512	471067
113012	330675	32362	476049
110452	332225	31928	474605
107005	331735	31699	470439
102841	328047	30363	461251
98173	326165	30386	454724
98181	327081	30364	455626
137277	346764	32806	516847
147579	344190	33423	525192
146571	343333	33071	522975
138920	345777	33888	518585
130340	344094	34805	509239
128140	348609	35489	512238
127059	354846	37259	519164
122860	356427	37722	517009
117702	353467	38764	509933
113537	355996	39594	509127
108366	352487	40004	500857
111078	355178	40715	506971
150739	374556	44028	569323
159129	375021	45564	579714
157928	375787	44277	577992
147768	372720	44976	565464
137507	364431	45406	547344
136919	370490	47379	554788
136151	376974	49200	562325
133001	377632	50221	560854
125554	378205	51573	555332
119647	370861	53091	543599
114158	369167	53337	536662
116193	371551	54978	542722
152803	382842	57885	593530
161761	381903	67099	610763
160942	384502	67169	612613
149470	392058	69796	611324
139208	384359	70600	594167
134588	388884	71982	595454
130322	386586	73957	590865
126611	387495	75273	589379
122401	385705	76322	584428
117352	378670	77078	573100
112135	377367	77954	567456
112879	376911	79238	569028
148729	389827	82179	620735
157230	387820	83834	628884
157221	387267	83744	628232
146681	380575	84861	612117
136524	372402	86478	595404
132111	376740	88290	597141




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54615&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]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54615&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54615&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
min2591382111001123386.5139051.5161761
25-50310527330716.5350953.5376942.5392058
50+2941930850.53637456431.588290
totaal431328472836516928571211.5628884

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
min25 & 91382 & 111001 & 123386.5 & 139051.5 & 161761 \tabularnewline
25-50 & 310527 & 330716.5 & 350953.5 & 376942.5 & 392058 \tabularnewline
50+ & 29419 & 30850.5 & 36374 & 56431.5 & 88290 \tabularnewline
totaal & 431328 & 472836 & 516928 & 571211.5 & 628884 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54615&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]min25[/C][C]91382[/C][C]111001[/C][C]123386.5[/C][C]139051.5[/C][C]161761[/C][/ROW]
[ROW][C]25-50[/C][C]310527[/C][C]330716.5[/C][C]350953.5[/C][C]376942.5[/C][C]392058[/C][/ROW]
[ROW][C]50+[/C][C]29419[/C][C]30850.5[/C][C]36374[/C][C]56431.5[/C][C]88290[/C][/ROW]
[ROW][C]totaal[/C][C]431328[/C][C]472836[/C][C]516928[/C][C]571211.5[/C][C]628884[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54615&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54615&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
min2591382111001123386.5139051.5161761
25-50310527330716.5350953.5376942.5392058
50+2941930850.53637456431.588290
totaal431328472836516928571211.5628884







Boxplot Notches
Variablelower boundmedianupper bound
min25118163.362658373123386.5128609.637341627
25-50342345.997575656350953.5359561.002424344
50+31610.69537668963637441137.3046233104
totaal498610.011103144516928535245.988896856

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
min25 & 118163.362658373 & 123386.5 & 128609.637341627 \tabularnewline
25-50 & 342345.997575656 & 350953.5 & 359561.002424344 \tabularnewline
50+ & 31610.6953766896 & 36374 & 41137.3046233104 \tabularnewline
totaal & 498610.011103144 & 516928 & 535245.988896856 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=54615&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]min25[/C][C]118163.362658373[/C][C]123386.5[/C][C]128609.637341627[/C][/ROW]
[ROW][C]25-50[/C][C]342345.997575656[/C][C]350953.5[/C][C]359561.002424344[/C][/ROW]
[ROW][C]50+[/C][C]31610.6953766896[/C][C]36374[/C][C]41137.3046233104[/C][/ROW]
[ROW][C]totaal[/C][C]498610.011103144[/C][C]516928[/C][C]535245.988896856[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=54615&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=54615&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
min25118163.362658373123386.5128609.637341627
25-50342345.997575656350953.5359561.002424344
50+31610.69537668963637441137.3046233104
totaal498610.011103144516928535245.988896856



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