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, 17 Dec 2014 12:01:35 +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/2014/Dec/17/t1418817826qwbgyck5jtuhfem.htm/, Retrieved Thu, 16 May 2024 17:04:28 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270096, Retrieved Thu, 16 May 2024 17:04:28 +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 gender AMSE] [2014-12-17 12:01:35] [4d754bf6e19324217bcb21f53e4ec277] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

50	NA
NA	62
54	NA
NA	71
NA	54
NA	65
73	NA
NA	52
NA	84
NA	42
NA	66
NA	65
73	NA
75	NA
72	NA
NA	66
70	NA
81	NA
NA	69
71	NA
NA	68
NA	70
NA	68
NA	67
76	NA
70	NA
60	NA
NA	72
NA	71
70	NA
NA	64
76	NA
NA	68
NA	76
NA	65
67	NA
NA	75
NA	60
NA	73
NA	63
NA	70
NA	66
NA	64
70	NA
75	NA
60	NA
NA	66
59	NA
78	NA
67	NA
NA	59
66	NA
NA	71
66	NA
72	NA
NA	71
59	NA
78	NA
NA	65
65	NA
71	NA
NA	72
66	NA
69	NA
NA	51
NA	56
NA	67
NA	69
57	NA
NA	56
NA	55
63	NA
NA	67
65	NA
47	NA
NA	76
NA	64
NA	68
NA	64
NA	65
NA	71
NA	63
NA	60
68	NA
NA	72
NA	70
NA	61
NA	61
NA	62
NA	71
71	NA
NA	51
NA	56
NA	70
NA	73
NA	76
68	NA
48	NA
NA	52
60	NA
59	NA
NA	57
79	NA
NA	60
NA	60
59	NA
NA	62
NA	59
NA	61
71	NA
57	NA
66	NA
63	NA
NA	69
58	NA
NA	59
48	NA
NA	66
73	NA
NA	67
61	NA
68	NA
NA	75
62	NA
NA	69
NA	58
NA	60
NA	74
NA	55
62	NA
NA	63
69	NA
58	NA
58	NA
NA	68
72	NA
NA	62
62	NA
65	NA
69	NA
66	NA
NA	72
NA	62
NA	75
NA	58
66	NA
55	NA
NA	47
72	NA
62	NA
64	NA
64	NA
NA	19
NA	50
68	NA
70	NA
NA	79
69	NA
NA	71
NA	48
73	NA
NA	74
NA	66
NA	71
74	NA
78	NA
75	NA
NA	53
NA	60
NA	70
NA	69
65	NA
78	NA
78	NA
NA	59
NA	72
70	NA
63	NA
63	NA
NA	71
NA	74
67	NA
66	NA
62	NA
NA	80
NA	73
NA	67
NA	61
73	NA
NA	74
NA	32
NA	69
69	NA
84	NA
NA	64
58	NA
NA	59
NA	78
57	NA
NA	60
68	NA
NA	68
NA	73
69	NA
NA	67
60	NA
NA	65
66	NA
NA	74
81	NA
72	NA
NA	55
NA	49
74	NA
NA	53
NA	64
65	NA
NA	57
51	NA
80	NA
NA	67
NA	70
74	NA
NA	75
70	NA
69	NA
NA	65
55	NA
71	NA
NA	65
NA	69
NA	48
69	NA
NA	68
NA	74
NA	67
NA	65
63	NA
NA	74
39	NA
68	NA
NA	69
68	NA
NA	63
67	NA
70	NA
NA	68
NA	70
NA	78
59	NA
62	NA
75	NA
NA	74
73	NA
NA	62
NA	69
NA	67
73	NA
NA	52
61	NA
NA	53
63	NA
78	NA
65	NA
77	NA
69	NA
68	NA
NA	76
NA	63
NA	41
76	NA
67	NA
69	NA
59	NA
73	NA
NA	72
NA	52
NA	65
NA	63
78	NA
NA	56
68	NA
NA	56
NA	64
68	NA
NA	75
67	NA
55	NA
73	NA
66	NA
75	NA
77	NA
NA	65
75	NA
57	NA
NA	61
NA	71
NA	72
NA	62
66	NA
NA	66
NA	63
60	NA
64	NA
74	NA
59	NA
NA	71
69	NA
63	NA
73	NA
55	NA
77	NA
70	NA
NA	64
NA	78
NA	60
66	NA
77	NA
NA	68
78	NA
NA	68
NA	60
NA	65
NA	64
NA	69
72	NA
50	NA
72	NA
71	NA
80	NA
NA	74
64	NA
69	NA
NA	76
75	NA
79	NA
NA	73
60	NA
NA	76
NA	55
53	NA
NA	62
69	NA
NA	78
68	NA
NA	67
NA	75
NA	59
73	NA
NA	70
NA	59
64	NA
NA	63
NA	67
NA	58
NA	71
79	NA
NA	53
76	NA
66	NA
NA	64
57	NA
NA	67
NA	72
58	NA
74	NA
NA	57
NA	62
NA	74
NA	54
62	NA
NA	66
NA	64
NA	74
NA	71
66	NA
66	NA
NA	63
65	NA
NA	70
NA	66
66	NA
NA	78
77	NA
NA	72
65	NA
67	NA
NA	72
NA	58
NA	84
NA	67
84	NA
58	NA
NA	63
75	NA
NA	55
72	NA
NA	58
NA	69
NA	54
NA	58
NA	67
NA	77
NA	80
NA	67
75	NA
NA	71
72	NA
75	NA
NA	79
NA	76
NA	72
NA	81
NA	52
NA	76
NA	60
72	NA
NA	77
NA	64
NA	67
72	NA
NA	79
NA	40
NA	71
NA	73
75	NA
NA	70
NA	66
66	NA
73	NA
NA	74
NA	58
NA	51
NA	75
70	NA
NA	50
64	NA
NA	77
NA	71

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

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

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
IF	48	63	68	73	84
IM	47	60	67	71	84

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IF & 48 & 63 & 68 & 73 & 84 \tabularnewline
IM & 47 & 60 & 67 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270096&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]IF[/C][C]48[/C][C]63[/C][C]68[/C][C]73[/C][C]84[/C][/ROW]
[ROW][C]IM[/C][C]47[/C][C]60[/C][C]67[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270096&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270096&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
IF	48	63	68	73	84
IM	47	60	67	71	84

Boxplot Notches
Variable	lower bound	median	upper bound
IF	66.8685384990177	68	69.1314615009823
IM	65.8873595133831	67	68.1126404866169

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IF & 66.8685384990177 & 68 & 69.1314615009823 \tabularnewline
IM & 65.8873595133831 & 67 & 68.1126404866169 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=270096&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]IF[/C][C]66.8685384990177[/C][C]68[/C][C]69.1314615009823[/C][/ROW]
[ROW][C]IM[/C][C]65.8873595133831[/C][C]67[/C][C]68.1126404866169[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=270096&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270096&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
IF	66.8685384990177	68	69.1314615009823
IM	65.8873595133831	67	68.1126404866169

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