Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Wed, 11 Nov 2009 03:57:07 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Nov/11/t12579370707o4v4jz8vlq8rxd.htm/, Retrieved Fri, 26 Apr 2024 18:06:35 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=55484, Retrieved Fri, 26 Apr 2024 18:06:35 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Estimated Impact

168

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]
- R  D    [Notched Boxplots] [] [2009-11-11 10:57:07] [54e293c1fb7c46e2abc5c1dda68d8adb] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

519164	244752	274412
517009	244576	272433
509933	241572	268361
509127	240541	268586
500857	236089	264768
506971	236997	269974
569323	264579	304744
579714	270349	309365
577992	269645	308347
565464	267037	298427
547344	258113	289231
554788	262813	291975
562325	267413	294912
560854	267366	293488
555332	264777	290555
543599	258863	284736
536662	254844	281818
542722	254868	287854
593530	277267	316263
610763	285351	325412
612613	286602	326011
611324	283042	328282
594167	276687	317480
595454	277915	317539
590865	277128	313737
589379	277103	312276
584428	275037	309391
573100	270150	302950
567456	267140	300316
569028	264993	304035
620735	287259	333476
628884	291186	337698
628232	292300	335932
612117	288186	323931
595404	281477	313927
597141	282656	314485
593408	280190	313218
590072	280408	309664
579799	276836	302963
574205	275216	298989
572775	274352	298423
572942	271311	301631
619567	289802	329765
625809	290726	335083
619916	292300	327616
587625	278506	309119
565742	269826	295916
557274	265861	291413
560576	269034	291542
548854	264176	284678
531673	255198	276475
525919	253353	272566
511038	246057	264981
498662	235372	263290
555362	258556	296806
564591	260993	303598
541657	254663	286994
527070	250643	276427
509846	243422	266424
514258	247105	267153
516922	248541	268381
507561	245039	262522
492622	237080	255542
490243	237085	253158
469357	225554	243803
477580	226839	250741
528379	247934	280445
533590	248333	285257
517945	246969	270976
506174	245098	261076
501866	246263	255603
516141	255765	260376
528222	264319	263903
532638	268347	264291
536322	273046	263276
536535	273963	262572
523597	267430	256167
536214	271993	264221
586570	292710	293860

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=55484&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=55484&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55484&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Wkltot	469357	521380.5	555362	587097.5	628884
Wklm	225554	248437	267037	276969.5	292710
Wklv	243803	268371	291542	309378	337698

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Wkltot & 469357 & 521380.5 & 555362 & 587097.5 & 628884 \tabularnewline
Wklm & 225554 & 248437 & 267037 & 276969.5 & 292710 \tabularnewline
Wklv & 243803 & 268371 & 291542 & 309378 & 337698 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55484&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]Wkltot[/C][C]469357[/C][C]521380.5[/C][C]555362[/C][C]587097.5[/C][C]628884[/C][/ROW]
[ROW][C]Wklm[/C][C]225554[/C][C]248437[/C][C]267037[/C][C]276969.5[/C][C]292710[/C][/ROW]
[ROW][C]Wklv[/C][C]243803[/C][C]268371[/C][C]291542[/C][C]309378[/C][C]337698[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55484&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55484&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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Wkltot	469357	521380.5	555362	587097.5	628884
Wklm	225554	248437	267037	276969.5	292710
Wklv	243803	268371	291542	309378	337698

Boxplot Notches
Variable	lower bound	median	upper bound
Wkltot	543679.890549545	555362	567044.109450455
Wklm	261964.951855759	267037	272109.048144241
Wklv	284252.436230583	291542	298831.563769417

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Wkltot & 543679.890549545 & 555362 & 567044.109450455 \tabularnewline
Wklm & 261964.951855759 & 267037 & 272109.048144241 \tabularnewline
Wklv & 284252.436230583 & 291542 & 298831.563769417 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=55484&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]Wkltot[/C][C]543679.890549545[/C][C]555362[/C][C]567044.109450455[/C][/ROW]
[ROW][C]Wklm[/C][C]261964.951855759[/C][C]267037[/C][C]272109.048144241[/C][/ROW]
[ROW][C]Wklv[/C][C]284252.436230583[/C][C]291542[/C][C]298831.563769417[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=55484&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=55484&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
Variable	lower bound	median	upper bound
Wkltot	543679.890549545	555362	567044.109450455
Wklm	261964.951855759	267037	272109.048144241
Wklv	284252.436230583	291542	298831.563769417

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code