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

Mon, 14 Dec 2015 16:11:38 +0000

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/2015/Dec/14/t1450109510hcipctlgx8swbf4.htm/, Retrieved Thu, 16 May 2024 05:32:41 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=286335, Retrieved Thu, 16 May 2024 05:32:41 +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

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Notched Boxplots] [boxplot] [2015-12-07 13:57:43] [006b54b8ce76f482b86cd20c6480b526]
-       [Notched Boxplots] [boxplot] [2015-12-07 14:04:56] [006b54b8ce76f482b86cd20c6480b526]
- R PD    [Notched Boxplots] [Boxplot 25-50] [2015-12-07 14:11:12] [006b54b8ce76f482b86cd20c6480b526]
-    D      [Notched Boxplots] [Boxplot ouder 50] [2015-12-07 14:12:43] [006b54b8ce76f482b86cd20c6480b526]
- R  D        [Notched Boxplots] [] [2015-12-07 14:21:26] [006b54b8ce76f482b86cd20c6480b526]
- RM D          [Histogram] [Histogram totaal ...] [2015-12-07 14:21:55] [006b54b8ce76f482b86cd20c6480b526]
-    D            [Histogram] [Histogram totaal ...] [2015-12-07 14:22:55] [006b54b8ce76f482b86cd20c6480b526]
- RMPD                [Notched Boxplots] [] [2015-12-14 16:11:38] [7a1b228211171c106fd09cb69827bfa3] [Current]
- RMPD                  [Histogram] [mannen jonger dan 25] [2015-12-14 16:12:15] [006b54b8ce76f482b86cd20c6480b526] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

63966 55954
60410 52044
59440 49975
59445 50398
57614 48751
55396 46908
53030 44938
50090 42372
48764 43522
61658 58434
63943 62713
64878 59266
60634 53411
57905 50215
57224 48474
60953 50250
60621 49409
57258 46751
54903 44869
53278 43023
53042 44638
63753 57810
69210 65000
71446 61665
68408 56119
65427 52162
64630 51069
66086 51744
65058 50816
62689 48578
60841 47144
57346 44839
56222 45879
68202 60730
70745 65037
73690 63281
68992 57300
65925 53335
65546 51813
67221 52597
65315 50744
62038 48008
58774 45326
55320 42661
53900 43627
65544 58156
67906 61772
70911 59879
66544 54417
63657 50575
61720 48798
62140 48819
60837 47606
58632 45345
54642 42484
51125 39735
51000 40959
60486 53249
62685 57028
66142 55763
61895 50547

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	'Sir Maurice George Kendall' @ kendall.wessa.net

\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 & 'Sir Maurice George Kendall' @ kendall.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286335&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]'Sir Maurice George Kendall' @ kendall.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286335&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286335&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	'Sir Maurice George Kendall' @ kendall.wessa.net

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
WLH_-25_M	48764	57346	61720	65544	73690
WLH_-25_V	39735	46751	50547	55954	65037

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
WLH_-25_M & 48764 & 57346 & 61720 & 65544 & 73690 \tabularnewline
WLH_-25_V & 39735 & 46751 & 50547 & 55954 & 65037 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286335&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]WLH_-25_M[/C][C]48764[/C][C]57346[/C][C]61720[/C][C]65544[/C][C]73690[/C][/ROW]
[ROW][C]WLH_-25_V[/C][C]39735[/C][C]46751[/C][C]50547[/C][C]55954[/C][C]65037[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286335&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286335&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
WLH_-25_M	48764	57346	61720	65544	73690
WLH_-25_V	39735	46751	50547	55954	65037

Boxplot Notches
Variable	lower bound	median	upper bound
WLH_-25_M	60061.55878013	61720	63378.44121987
WLH_-25_V	48685.2490184845	50547	52408.7509815155

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
WLH_-25_M & 60061.55878013 & 61720 & 63378.44121987 \tabularnewline
WLH_-25_V & 48685.2490184845 & 50547 & 52408.7509815155 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=286335&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]WLH_-25_M[/C][C]60061.55878013[/C][C]61720[/C][C]63378.44121987[/C][/ROW]
[ROW][C]WLH_-25_V[/C][C]48685.2490184845[/C][C]50547[/C][C]52408.7509815155[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=286335&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=286335&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
WLH_-25_M	60061.55878013	61720	63378.44121987
WLH_-25_V	48685.2490184845	50547	52408.7509815155

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 <- na.omit(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