Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Thu, 04 Sep 2008 13:38:52 -0600

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/2008/Sep/04/t12205574105xauqtac75srs6d.htm/, Retrieved Sat, 18 May 2024 13:53:51 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=14324, Retrieved Sat, 18 May 2024 13:53:51 +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

280

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

-       [Notched Boxplots] [] [2008-09-04 19:38:52] [d41d8cd98f00b204e9800998ecf8427e] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

    54	    36	    46	    67	    55	    59
    47	    65	    44	    35	    41	    47
    44	    46	    37	    33	    38	    44
    48	    47	    69	    37	    42	    48
    44	    50	    57	    33	    39	    44
    49	    54	    60	    42	    45	    53
    48	    57	    53	    37	    42	    48
    53	    59	    60	    65	    51	    58
    35	    56	    55	    31	    35	    34
    49	    50	    45	    44	    45	    53
    48	    64	    68	    37	    42	    49
    50	    51	    58	    58	    46	    54
    52	    50	    51	    64	    50	    58
    49	    50	    45	    38	    42	    50
    48	    43	    35	    38	    42	    49
    48	    47	    43	    36	    42	    48
    33	    46	    42	    31	    35	    32
    56	    49	    40	    68	    55	    60
    49	    43	    39	    41	    44	    52
    52	    54	    57	    62	    48	    56
    49	    56	    36	    42	    45	    53
    52	    54	    47	    63	    49	    57
    59	    53	    39	    69	    57	    62
    37	    41	    64	    32	    38	    38
    37	    50	    51	    32	    38	    37
    51	    31	    59	    59	    47	    54
    53	    53	    48	    65	    51	    58
    48	    42	    53	    36	    42	    48
    50	    57	    51	    56	    46	    54
    52	    48	    33	    64	    50	    58
    52	    46	    41	    64	    50	    58
    52	    38	    34	    61	    47	    56
    46	    49	    39	    34	    41	    45
    49	    41	    54	    40	    43	    51
    50	    60	    50	    57	    46	    54
    50	    52	    64	    47	    46	    54
    55	    49	    64	    67	    55	    59
    48	    50	    43	    38	    42	    50
    62	    43	    54	    70	    62	    62
    31	    46	    40	    31	    32	    32
    52	    70	    48	    62	    49	    57
    47	    52	    38	    34	    41	    45
    52	    47	    36	    62	    48	    56
    59	    58	    59	    69	    57	    62
    50	    48	    67	    52	    46	    54
    49	    51	    50	    40	    43	    52
    51	    37	    47	    61	    47	    55
    46	    45	    34	    34	    40	    45
    39	    58	    47	    32	    38	    39
    66	    53	    65	    70	    66	    65
    50	    62	    57	    47	    46	    54
    64	    53	    42	    70	    63	    62
    66	    49	    32	    70	    64	    63
    52	    42	    66	    63	    49	    57
    48	    49	    45	    38	    42	    50
    52	    59	    69	    64	    49	    57
    49	    62	    57	    42	    45	    53
    53	    49	    58	    66	    52	    58
    66	    50	    37	    70	    65	    64
    36	    38	    30	    31	    37	    36
    51	    43	    47	    60	    47	    55
    50	    66	    45	    45	    46	    54
    50	    46	    36	    48	    46	    54
    42	    48	    35	    33	    38	    43
    49	    45	    64	    40	    43	    51
    47	    46	    55	    35	    42	    47
    52	    52	    37	    62	    48	    57
    38	    54	    41	    32	    38	    38
    49	    57	    60	    41	    44	    52
    58	    43	    64	    69	    56	    62
    54	    42	    38	    67	    54	    59
    48	    54	    68	    37	    42	    49
    42	    49	    49	    33	    38	    44
    52	    47	    42	    61	    48	    56
    45	    52	    32	    34	    39	    44
    50	    47	    60	    50	    46	    54
    45	    52	    30	    34	    39	    44
    53	    41	    35	    66	    52	    58
    40	    53	    65	    32	    38	    42
    56	    47	    38	    68	    55	    60
    50	    49	    58	    46	    46	    54
    50	    44	    33	    46	    46	    54
    49	    47	    56	    41	    44	    52
    36	    42	    61	    31	    37	    36
    48	    55	    55	    36	    42	    48
    51	    61	    55	    61	    47	    55
    44	    57	    64	    33	    38	    44
    49	    46	    50	    39	    43	    51
    38	    44	    30	    32	    38	    38
    53	    35	    61	    67	    53	    59
    53	    50	    37	    67	    53	    59
    53	    60	    43	    66	    52	    58
    64	    42	    66	    70	    62	    62
    48	    46	    59	    37	    42	    49
    57	    54	    63	    69	    56	    62
    53	    50	    69	    66	    52	    58
    61	    50	    46	    70	    61	    62
    49	    50	    60	    42	    45	    53
    48	    56	    37	    36	    42	    48
    50	    51	    53	    45	    46	    53
    51	    50	    33	    59	    47	    54
    48	    52	    39	    37	    42	    49
    69	    34	    53	    70	    68	    65
    65	    42	    67	    70	    64	    63
    59	    64	    48	    69	    57	    62
    50	    63	    43	    53	    46	    54
    52	    48	    31	    62	    48	    56
    57	    52	    59	    68	    56	    61
    47	    47	    65	    35	    42	    48
    52	    54	    64	    61	    48	    56
    35	    59	    33	    31	    36	    35
    51	    55	    67	    60	    47	    55
    53	    67	    69	    65	    51	    58
    41	    40	    42	    33	    38	    43
    53	    52	    62	    66	    52	    58
    53	    45	    45	    66	    51	    58
    41	    43	    68	    33	    38	    43
    47	    54	    41	    35	    41	    47
    57	    52	    37	    68	    56	    61
    51	    56	    55	    60	    47	    55
    60	    49	    44	    70	    58	    62
    50	    47	    33	    45	    46	    53
    50	    54	    69	    54	    46	    54
    46	    58	    37	    34	    40	    45
    49	    51	    64	    41	    44	    52
    49	    46	    69	    39	    43	    51
    60	    53	    62	    70	    58	    62
    49	    52	    46	    41	    44	    52
    57	    59	    52	    68	    56	    61
    53	    47	    61	    66	    52	    58
    49	    50	    32	    39	    43	    51
    52	    52	    53	    65	    51	    58
    52	    48	    67	    63	    49	    57
    47	    53	    42	    35	    41	    46
    52	    57	    57	    65	    51	    58
    50	    53	    33	    53	    46	    54
    39	    41	    64	    32	    38	    42
    49	    59	    40	    42	    45	    53
    53	    52	    49	    67	    53	    58
    48	    42	    51	    37	    42	    49
    52	    55	    54	    62	    49	    57
    61	    55	    48	    70	    62	    62
    51	    52	    66	    61	    47	    55
    50	    58	    61	    52	    46	    54
    49	    46	    37	    40	    43	    51
    53	    56	    49	    66	    52	    58
    58	    57	    50	    69	    56	    62
    49	    57	    69	    42	    44	    53
    70	    54	    67	    70	    68	    68
    50	    51	    42	    57	    46	    54

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

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
v1	41	48	50	53	60
v2	34	46	50	54	66
v3	30	40	50	60	69
v4	31	37	52	66	70
v5	32	42	46	51	64
v6	36	49	54	58	68

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
v1 & 41 & 48 & 50 & 53 & 60 \tabularnewline
v2 & 34 & 46 & 50 & 54 & 66 \tabularnewline
v3 & 30 & 40 & 50 & 60 & 69 \tabularnewline
v4 & 31 & 37 & 52 & 66 & 70 \tabularnewline
v5 & 32 & 42 & 46 & 51 & 64 \tabularnewline
v6 & 36 & 49 & 54 & 58 & 68 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14324&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]v1[/C][C]41[/C][C]48[/C][C]50[/C][C]53[/C][C]60[/C][/ROW]
[ROW][C]v2[/C][C]34[/C][C]46[/C][C]50[/C][C]54[/C][C]66[/C][/ROW]
[ROW][C]v3[/C][C]30[/C][C]40[/C][C]50[/C][C]60[/C][C]69[/C][/ROW]
[ROW][C]v4[/C][C]31[/C][C]37[/C][C]52[/C][C]66[/C][C]70[/C][/ROW]
[ROW][C]v5[/C][C]32[/C][C]42[/C][C]46[/C][C]51[/C][C]64[/C][/ROW]
[ROW][C]v6[/C][C]36[/C][C]49[/C][C]54[/C][C]58[/C][C]68[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14324&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14324&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
v1	41	48	50	53	60
v2	34	46	50	54	66
v3	30	40	50	60	69
v4	31	37	52	66	70
v5	32	42	46	51	64
v6	36	49	54	58	68

Boxplot Notches
Variable	lower bound	median	upper bound
v1	49.3549677010671	50	50.6450322989329
v2	48.9679483217074	50	51.0320516782926
v3	47.4198708042684	50	52.5801291957316
v4	48.2588126661892	52	55.7411873338108
v5	44.8389418619208	46	47.1610581380792
v6	52.8389418619208	54	55.1610581380792

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
v1 & 49.3549677010671 & 50 & 50.6450322989329 \tabularnewline
v2 & 48.9679483217074 & 50 & 51.0320516782926 \tabularnewline
v3 & 47.4198708042684 & 50 & 52.5801291957316 \tabularnewline
v4 & 48.2588126661892 & 52 & 55.7411873338108 \tabularnewline
v5 & 44.8389418619208 & 46 & 47.1610581380792 \tabularnewline
v6 & 52.8389418619208 & 54 & 55.1610581380792 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=14324&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]v1[/C][C]49.3549677010671[/C][C]50[/C][C]50.6450322989329[/C][/ROW]
[ROW][C]v2[/C][C]48.9679483217074[/C][C]50[/C][C]51.0320516782926[/C][/ROW]
[ROW][C]v3[/C][C]47.4198708042684[/C][C]50[/C][C]52.5801291957316[/C][/ROW]
[ROW][C]v4[/C][C]48.2588126661892[/C][C]52[/C][C]55.7411873338108[/C][/ROW]
[ROW][C]v5[/C][C]44.8389418619208[/C][C]46[/C][C]47.1610581380792[/C][/ROW]
[ROW][C]v6[/C][C]52.8389418619208[/C][C]54[/C][C]55.1610581380792[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=14324&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=14324&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
v1	49.3549677010671	50	50.6450322989329
v2	48.9679483217074	50	51.0320516782926
v3	47.4198708042684	50	52.5801291957316
v4	48.2588126661892	52	55.7411873338108
v5	44.8389418619208	46	47.1610581380792
v6	52.8389418619208	54	55.1610581380792

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