Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationWed, 17 Feb 2021 14:58:13 +0100
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2021/Feb/17/t1613570448xiodsa0wc45ybxo.htm/, Retrieved Tue, 18 Jan 2022 12:36:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=319371, Retrieved Tue, 18 Jan 2022 12:36:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact32
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Workshop 7] [2011-11-18 13:08:09] [227e53f633d125e3e89f625705633e7f]
- RMPD    [Notched Boxplots] [] [2021-02-17 13:58:13] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
14	83	96
13	79	91
16	92	108
13	83	95
14	92	105
15	103	117
14	82	94
13	86	98
15	106	120
13	79	91
13	86	100
13	76	90
16	108	123
16	82	97
12	108	120
15	118	133
16	127	141
16	123	138
12	72	85
16	105	121
13	63	74
14	86	100
11	58	67
12	59	73
15	100	116
15	100	115
14	78	92
15	94	109
15	105	120
15	89	105
16	101	115
15	92	105
16	105	122
12	76	87
16	80	94
12	66	78
18	117	135
18	94	113
15	107	123
17	110	126
17	110	127
16	106	120
14	94	108
14	71	83
15	101	117
14	84	96
14	89	103
17	119	134
15	97	112
14	82	93
15	89	103
14	70	84
15	101	116
15	81	97
14	74	87
15	107	122
14	97	111
16	83	101
15	95	109
15	82	96
14	88	100
16	74	90
16	104	120
13	73	86
13	73	85
15	81	96
14	79	93
13	83	95
17	111	127
18	138	156
13	81	94
16	107	123
13	66	80
15	81	98
15	74	88
13	96	109
14	86	98
14	69	83
14	73	85
15	71	85
12	64	76
16	79	96
13	60	72
15	111	125
16	107	121
14	90	103
17	98	113
12	77	89
16	93	108
13	68	80
13	74	87
14	70	84
14	80	93
13	81	94
15	72	87
15	81	95
15	92	106
12	81	94
12	78	91
14	92	106
12	92	103
15	107	121
14	98	112
15	86	98
13	77	91
15	96	112
14	104	118
13	77	90
14	65	80
14	61	73
17	117	135
14	84	97
12	69	82
15	85	99
16	116	132
16	115	130
13	55	67
14	64	78
15	117	131
13	68	80
17	104	121
13	66	79
13	70	82
12	89	101
14	79	91
15	70	83
13	63	76
15	79	93
13	62	73
15	94	107
14	83	97
16	118	133
13	62	74
15	78	93
15	83	99
14	91	105
13	84	95
15	76	90
16	100	115
15	80	95
16	98	115
16	89	105
16	98	115
14	88	102
12	81	92
13	88	101
15	75	90
15	77	93
15	88	102
14	65	79
14	69	83
14	76	89
13	53	65
15	82	97
13	67	78
15	84	99
16	112	126
15	91	106
13	104	115
13	79	90
14	90	104
15	60	76
15	79	95
16	99	114
15	68	81
12	79	91
14	107	120
16	114	132
14	81	96
14	83	95
14	61	74
12	82	93
18	134	152
14	102	116
16	132	148
12	72	84
14	72	87
13	102	114
14	92	106
16	94	110
13	86	99
13	84	96
13	66	80
14	129	144
13	88	102
14	109	125
14	84	98
14	73	87
15	86	100
15	113	128
14	88	102
13	90	104
14	82	96
17	111	127
13	73	85
15	91	106
14	72	85
16	111	126
14	108	121
14	83	94
14	81	94
17	111	128
13	69	82
14	106	118
15	115	128
18	132	149
15	78	92
15	90	105
16	132	146
15	91	106
15	115	130
12	65	77
14	77	92
14	71	83
15	74	88
14	76	89
17	115	132
15	100	113
14	70	83
13	71	84
14	74	88
14	60	74
13	58	71
14	105	119
14	105	120
14	100	113
14	74	88
15	77	92
14	77	91
15	109	123
13	68	80
12	67	79
14	96	109
14	86	98
14	85	98
15	91	106
15	104	117
15	94	108
13	67	79
13	79	93
13	73	86
14	93	106
13	87	100
12	66	78
14	79	92
15	94	111
15	84	97
10	67	77
14	121	134
14	82	95
18	116	134
15	83	96
12	66	78
13	66	79
17	71	87
14	83	95
16	93	110
14	83	96
17	112	129
15	79	93
19	135	154
13	85	97
17	91	109
16	103	118
15	77	91
15	70	83
14	53	65
14	85	99
14	88	103
12	65	75
16	119	135
17	93	109
14	84	98
13	70	81
14	64	78
13	63	75
18	152	171
14	83	96
12	66	78
15	83	96
14	106	121
16	85	100
13	85	97
15	84	99
16	78	92
13	94	108
15	82	96
13	66	77
13	69	82
12	83	94
14	83	98
15	124	139
14	101	116
15	113	126
15	107	121
15	83	96
14	79	91
15	85	99
13	62	74
13	83	95
17	101	118
13	60	74
11	86	96
16	101	117
13	73	85
15	70	84
13	88	100
14	74	88
15	105	120
15	82	97
13	83	94
15	90	105
13	70	81
13	56	70
14	70	83
14	79	93
16	127	141
15	96	109
15	101	115
15	81	97
16	93	109
13	92	103
14	79	95
15	78	92
13	68	80
17	92	109
13	73	86
12	61	74
13	73	84
15	108	121
12	88	99
12	66	76
14	59	73
13	61	73
13	55	66
15	119	134
14	89	102
13	68	81
17	125	144
13	66	78
16	82	95
16	101	116
13	104	118
14	63	77
13	63	77
12	63	72
15	98	113
15	90	104
16	97	111
13	74	86
13	63	76
15	102	117
14	90	103
15	79	95
15	74	87
16	89	105
14	70	84
13	77	90
13	78	90
15	70	84
15	95	109
13	100	113
11	64	73
13	90	102
16	109	124
13	89	102
13	66	78
15	88	103
15	108	122
14	97	112
12	66	76
14	85	97
15	79	95
13	95	106
13	62	77
14	76	88
15	69	85
16	105	121
13	74	86
16	96	113
13	83	95
16	76	92
16	83	97
14	68	83
13	68	81
14	76	90
14	73	89
14	71	83
15	74	89
14	78	90
16	95	110
15	103	116
14	82	95
13	67	79
12	77	87
16	93	109
13	76	90
13	85	96
13	68	81
12	81	93
14	87	101
12	67	80
13	78	90
15	93	108
15	87	102
13	77	90
14	79	93
13	84	97
14	114	128
16	84	99
16	105	118
15	117	131
16	94	110
15	65	79
13	75	89
13	73	84
16	117	132
14	75	89
14	85	100
14	83	97
11	63	75
14	80	94
14	73	86
13	86	97
15	103	117
12	67	79
14	83	96
15	55	71
15	90	103
15	123	138
16	98	113
19	188	207
16	76	91
14	72	85
13	65	78
16	99	114
12	86	98
16	81	97
15	99	113
11	58	69
16	90	107
16	97	113
15	85	100
15	79	92
17	110	126
15	92	106
14	88	100
13	56	68
14	71	85
16	110	124
14	77	89
14	66	80
17	114	132
14	76	89
15	109	122
15	125	139
14	74	87
14	89	103
16	100	116
13	77	90
15	99	115
14	88	101
14	96	110
16	87	103
15	101	116
14	78	92
17	119	136
16	105	122
15	80	93
13	69	81
15	89	105
14	69	86
10	66	75
15	70	84
14	83	96
16	81	96
14	73	87
15	100	115
15	67	81
15	108	124
14	105	118
17	119	136
15	91	104
15	102	116
15	100	114
15	76	90
16	100	115
13	86	98
15	103	119
16	93	110
13	57	69
17	115	135
12	82	92
15	99	112
15	63	77
17	166	182
13	74	85
17	86	102
13	87	100
15	101	118
15	73	88
14	102	115
16	97	114
15	86	101
16	116	133
14	81	93
17	140	156
14	93	105
16	111	128
16	115	131
15	70	88
13	68	81
15	77	91
14	81	95
14	64	78
15	111	125
17	126	140
16	97	114
15	72	86
15	88	103
14	78	92
14	94	107
14	78	92
13	70	83
14	96	109
16	99	116
14	79	93
16	102	118
13	89	101
13	79	91
16	94	110
15	89	105
16	94	111
14	63	78
12	76	88
15	55	70
14	83	95
15	70	85
14	81	95
17	130	146
13	64	75
14	77	89
15	85	100
15	104	120
15	72	85
15	70	83
15	84	99
16	106	121
17	118	136
16	70	85
14	74	88
13	75	87
14	95	107
16	71	87
16	81	96
14	103	116
14	56	67
15	91	105
13	54	67
15	76	90
17	101	119
14	83	97
10	62	72
14	67	80
15	91	102
15	91	105
15	97	111
12	63	74
16	80	96
14	71	84
16	83	97
15	88	102
13	74	85
13	89	101
12	65	77
13	103	116
17	122	138
18	123	140
15	98	114
15	97	112
12	69	81
14	90	103
13	85	97
14	60	73
15	97	112
16	111	129
14	105	117
15	72	88
17	123	140
18	129	146
15	83	97
14	86	99
15	88	104
12	50	60
12	62	75
13	79	91
15	99	114
13	82	94
11	71	82
15	124	138
14	81	95
14	83	98
16	121	136
13	65	76
15	61	74
13	65	77
13	71	84
14	71	84
12	62	73
15	74	88
13	63	75
15	75	90
14	82	96
16	94	110
15	107	123
14	94	107
14	91	106
16	102	119
15	73	87
17	107	123
14	74	88
14	80	93
16	112	127
15	71	86
13	78	89
15	69	84
11	88	98
16	106	122
14	56	68
15	118	134
16	90	105
13	76	88
13	83	95
14	77	90
15	122	137
14	85	99
14	67	80
15	93	108
13	59	72
13	92	104
13	58	70
17	115	133
14	96	110
17	120	136
14	87	101
16	118	133
15	87	102
16	101	116
12	55	65
16	98	113
15	83	97
15	102	115
15	79	94




Summary of computational transaction
Raw Input view raw input (R code)
Raw Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center

\begin{tabular}{lllllllll}
\hline
Summary of computational transaction \tabularnewline
Raw Input view raw input (R code)  \tabularnewline
Raw Outputview raw output of R engine  \tabularnewline
Computing time0 seconds \tabularnewline
R ServerBig Analytics Cloud Computing Center \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319371&T=0

[TABLE]
[ROW]
Summary of computational transaction[/C][/ROW] [ROW]Raw Input[/C] view raw input (R code) [/C][/ROW] [ROW]Raw Output[/C]view raw output of R engine [/C][/ROW] [ROW]Computing time[/C]0 seconds[/C][/ROW] [ROW]R Server[/C]Big Analytics Cloud Computing Center[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=319371&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319371&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 Outputview raw output of R engine
Computing time0 seconds
R ServerBig Analytics Cloud Computing Center







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Bloeddruk1013141518
gewicht50738498135
cholesterol608797113152

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Bloeddruk & 10 & 13 & 14 & 15 & 18 \tabularnewline
gewicht & 50 & 73 & 84 & 98 & 135 \tabularnewline
cholesterol & 60 & 87 & 97 & 113 & 152 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319371&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]Bloeddruk[/C][C]10[/C][C]13[/C][C]14[/C][C]15[/C][C]18[/C][/ROW]
[ROW][C]gewicht[/C][C]50[/C][C]73[/C][C]84[/C][C]98[/C][C]135[/C][/ROW]
[ROW][C]cholesterol[/C][C]60[/C][C]87[/C][C]97[/C][C]113[/C][C]152[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319371&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319371&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
Bloeddruk1013141518
gewicht50738498135
cholesterol608797113152







Boxplot Notches
Variablelower boundmedianupper bound
Bloeddruk13.87633964412921414.1236603558708
gewicht82.45424555161528485.5457544483848
cholesterol95.39241537367989798.6075846263202

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Bloeddruk & 13.8763396441292 & 14 & 14.1236603558708 \tabularnewline
gewicht & 82.4542455516152 & 84 & 85.5457544483848 \tabularnewline
cholesterol & 95.3924153736798 & 97 & 98.6075846263202 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=319371&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]Bloeddruk[/C][C]13.8763396441292[/C][C]14[/C][C]14.1236603558708[/C][/ROW]
[ROW][C]gewicht[/C][C]82.4542455516152[/C][C]84[/C][C]85.5457544483848[/C][/ROW]
[ROW][C]cholesterol[/C][C]95.3924153736798[/C][C]97[/C][C]98.6075846263202[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=319371&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=319371&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
Bloeddruk13.87633964412921414.1236603558708
gewicht82.45424555161528485.5457544483848
cholesterol95.39241537367989798.6075846263202



Parameters (Session):
par1 = grey ; par2 = no ;
Parameters (R input):
par1 = grey ; par2 = no ;
R code (references can be found in the software module):
if(par2=='yes') {
z <- na.omit(as.data.frame(t(y)))
} else {
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,'Boxplot statistics',6,TRUE)
a<-table.row.end(a)
a<-table.row.start(a)
a<-table.element(a,'Variable',1,TRUE)
a<-table.element(a,'lower whisker',1,TRUE)
a<-table.element(a,'lower hinge',1,TRUE)
a<-table.element(a,'median',1,TRUE)
a<-table.element(a,'upper hinge',1,TRUE)
a<-table.element(a,'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')