Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 02 Dec 2014 14:00:49 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/02/t1417528908c0h66vxwp9plkcx.htm/, Retrieved Thu, 16 May 2024 18:09:51 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262629, Retrieved Thu, 16 May 2024 18:09:51 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact89
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Academic Motivati...] [2010-10-12 12:51:42] [b98453cac15ba1066b407e146608df68]
- RMP   [Notched Boxplots] [] [2014-10-09 22:27:40] [32b17a345b130fdf5cc88718ed94a974]
-    D    [Notched Boxplots] [] [2014-10-15 16:10:36] [eb7e288d9b33566bdff2c7f4784ff40e]
-   PD      [Notched Boxplots] [] [2014-12-02 11:09:53] [a6b2572b29932aa41ecec373f1b28823]
-    D        [Notched Boxplots] [] [2014-12-02 13:18:39] [a6b2572b29932aa41ecec373f1b28823]
-    D            [Notched Boxplots] [] [2014-12-02 14:00:49] [18ce79f318750841a7d9877f42eaf4c3] [Current]
-    D              [Notched Boxplots] [] [2014-12-02 14:19:29] [a6b2572b29932aa41ecec373f1b28823]
Feedback Forum

Post a new message
Dataseries X:
26	58	50	63	4	11	57	58	62	69
51	14	68	39	9	22	67	51	71	48
37	53	54	68	5	4	43	30	54	68
52	49	73	68	8	4	52	46	65	74
58	62	73	67	4	4	43	51	52	67
68	30	75	70	4	16	84	56	84	65
62	56	72	66	11	4	67	44	42	74
56	48	70	59	4	4	49	42	66	69
74	55	81	62	6	4	70	44	65	63
58	35	71	75	5	4	52	46	78	68
51	41	61	73	10	4	43	50	66	70
53	45	76	73	4	5	56	54	61	78
29	47	70	61	7	8	65	55	71	74
54	53	60	63	12	7	63	59	69	62
54	53	70	78	4	4	57	54	72	69
47	41	76	65	4	13	63	66	68	65
68	55	67	77	4	4	53	55	70	67
67	55	76	69	4	4	57	51	68	52
41	46	75	68	7	4	64	42	67	53
45	59	63	76	4	4	51	63	77	76
56	39	70	67	5	5	58	43	72	63
41	44	75	69	15	12	43	65	69	41
53	60	60	59	10	8	51	67	71	72
66	57	73	73	8	4	53	52	62	52
37	46	64	78	4	4	56	52	64	65
51	53	59	68	9	5	61	69	58	63
51	54	64	68	4	4	39	46	52	56
56	45	60	67	10	6	48	40	59	56
37	60	78	55	4	4	50	70	68	64
42	47	67	73	7	4	35	77	76	75
66	50	66	66	4	4	30	41	65	65
34	66	68	75	4	4	49	51	59	61
49	60	66	77	4	4	61	69	69	71
55	53	73	75	4	6	47	60	63	72
49	34	72	57	4	4	56	45	75	62
40	58	59	66	10	5	50	39	63	66
63	52	78	60	4	4	43	51	60	63
56	49	68	64	7	7	67	51	73	71
54	63	73	74	4	5	62	51	63	64
32	44	65	59	14	4	57	65	70	78
67	52	71	69	4	4	54	51	66	60
66	60	76	63	4	6	48	58	63	68
51	53	63	73	7	6	61	54	64	68
55	53	59	55	10	8	43	52	61	60
50	52	73	77	4	6	44	72	62	65
60	31	66	70	5	5	58	50	61	64
56	49	62	66	4	9	46	65	66	69
63	61	69	77	4	4	66	50	56	74
	62		78		4	45	52	66	76
	53		72		5	59	59	53	73
	56		50		8	38	52	59	76
	63		72		4	53	45	71	55
	62		71		4	59	70	71	62
	66		80		9	58	71	64	78
	45		64		4	60	58	66	67
	58		69		4	52	39	62	75
	53		75		4	34	46	65	59
	68		79		4	69	67	68	70
	58		60		4	48	44	60	59
	58		53		4	58	41	65	63
	69		69		4	57	68	68	67
	46		68		8	42	63	64	58
	64		73		4	64	57	74	71
	54		64		6	58	39	69	53
	61		79		4	26	38	68	64
	69		76		4	61	51	72	67
	64		66		5	52	59	67	72
	59		57		4	61	47	66	57
	51		58		4		50		62
	65		74		5		57		74
	47		62		4		21		54
	58		66		4		51		66
	51		66		4		37		64
	41		65		4		67		74
	64		66		4		43		71
	50		77		4		40		63
	55		65		4		58		70
	59		67		4		64		66
	77		84		4		58		78
	60		58		5		59		72
	64		75		4		58		72
	46		72		4		41		58
	54		75		4		56		84
	56		72		9		63		67
	65		75		4		58		63
	56		72		5		47		55
	56		72		9		62		58
	58		75		5		60		69
	42		66		4		50		54
	69		73		5		46		58
	51		70		8		44		67
	64		64		4		58		77
							56		80
							43		67
							54		71
							66		79
							62		76
							58		72
							67		81
							25		52
							56		76
							53		60
							59		77
							46		64
							49		67
							76		79
							33		40
							49		71
							53		73
							72		70
							51		66
							51		74
							54		58
							52		51
							59		75
							67		50
							58		77
							53		71




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.

\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
R Framework error message & 
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
\tabularnewline \hline \end{tabular} %Source: https://freestatistics.org/blog/index.php?pk=262629&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]
[ROW][C]R Framework error message[/C][C]
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.
[/C][/ROW] [/TABLE] Source: https://freestatistics.org/blog/index.php?pk=262629&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262629&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ jenkins.wessa.net
R Framework error message
Warning: there are blank lines in the 'Data X' field.
Please, use NA for missing data - blank lines are simply
 deleted and are NOT treated as missing values.







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
IF11295158.56784
IF143052606784
EF11264959.56881
EF14305059.56881
DF1145547084
DF144554.56778
IM1148506384
IM1445425579
EM113052616784
EM14 3052636978

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IF11 & 29 & 51 & 58.5 & 67 & 84 \tabularnewline
IF14 & 30 & 52 & 60 & 67 & 84 \tabularnewline
EF11 & 26 & 49 & 59.5 & 68 & 81 \tabularnewline
EF14 & 30 & 50 & 59.5 & 68 & 81 \tabularnewline
DF11 & 4 & 5 & 54 & 70 & 84 \tabularnewline
DF14 & 4 & 5 & 54.5 & 67 & 78 \tabularnewline
IM11 & 4 & 8 & 50 & 63 & 84 \tabularnewline
IM14 & 4 & 5 & 42 & 55 & 79 \tabularnewline
EM11 & 30 & 52 & 61 & 67 & 84 \tabularnewline
EM14
 & 30 & 52 & 63 & 69 & 78 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262629&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]IF11[/C][C]29[/C][C]51[/C][C]58.5[/C][C]67[/C][C]84[/C][/ROW]
[ROW][C]IF14[/C][C]30[/C][C]52[/C][C]60[/C][C]67[/C][C]84[/C][/ROW]
[ROW][C]EF11[/C][C]26[/C][C]49[/C][C]59.5[/C][C]68[/C][C]81[/C][/ROW]
[ROW][C]EF14[/C][C]30[/C][C]50[/C][C]59.5[/C][C]68[/C][C]81[/C][/ROW]
[ROW][C]DF11[/C][C]4[/C][C]5[/C][C]54[/C][C]70[/C][C]84[/C][/ROW]
[ROW][C]DF14[/C][C]4[/C][C]5[/C][C]54.5[/C][C]67[/C][C]78[/C][/ROW]
[ROW][C]IM11[/C][C]4[/C][C]8[/C][C]50[/C][C]63[/C][C]84[/C][/ROW]
[ROW][C]IM14[/C][C]4[/C][C]5[/C][C]42[/C][C]55[/C][C]79[/C][/ROW]
[ROW][C]EM11[/C][C]30[/C][C]52[/C][C]61[/C][C]67[/C][C]84[/C][/ROW]
[ROW][C]EM14
[/C][C]30[/C][C]52[/C][C]63[/C][C]69[/C][C]78[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262629&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262629&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
IF11295158.56784
IF143052606784
EF11264959.56881
EF14305059.56881
DF1145547084
DF144554.56778
IM1148506384
IM1445425579
EM113052616784
EM14 3052636978







Boxplot Notches
Variablelower boundmedianupper bound
IF1156.17278736595358.560.827212634047
IF1457.8182381555816062.181761844419
EF1156.736434997069259.562.2635650029308
EF1456.881885786697259.562.1181142133028
DF1144.54569867418425463.4543013258158
DF1445.48205104306854.563.517948956932
IM1142.00020657046365057.9997934295364
IM1434.72746051860324249.2725394813968
EM1158.8182381555816163.181761844419
EM14 60.52733657632516365.4726634236749

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IF11 & 56.172787365953 & 58.5 & 60.827212634047 \tabularnewline
IF14 & 57.818238155581 & 60 & 62.181761844419 \tabularnewline
EF11 & 56.7364349970692 & 59.5 & 62.2635650029308 \tabularnewline
EF14 & 56.8818857866972 & 59.5 & 62.1181142133028 \tabularnewline
DF11 & 44.5456986741842 & 54 & 63.4543013258158 \tabularnewline
DF14 & 45.482051043068 & 54.5 & 63.517948956932 \tabularnewline
IM11 & 42.0002065704636 & 50 & 57.9997934295364 \tabularnewline
IM14 & 34.7274605186032 & 42 & 49.2725394813968 \tabularnewline
EM11 & 58.818238155581 & 61 & 63.181761844419 \tabularnewline
EM14
 & 60.5273365763251 & 63 & 65.4726634236749 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262629&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]IF11[/C][C]56.172787365953[/C][C]58.5[/C][C]60.827212634047[/C][/ROW]
[ROW][C]IF14[/C][C]57.818238155581[/C][C]60[/C][C]62.181761844419[/C][/ROW]
[ROW][C]EF11[/C][C]56.7364349970692[/C][C]59.5[/C][C]62.2635650029308[/C][/ROW]
[ROW][C]EF14[/C][C]56.8818857866972[/C][C]59.5[/C][C]62.1181142133028[/C][/ROW]
[ROW][C]DF11[/C][C]44.5456986741842[/C][C]54[/C][C]63.4543013258158[/C][/ROW]
[ROW][C]DF14[/C][C]45.482051043068[/C][C]54.5[/C][C]63.517948956932[/C][/ROW]
[ROW][C]IM11[/C][C]42.0002065704636[/C][C]50[/C][C]57.9997934295364[/C][/ROW]
[ROW][C]IM14[/C][C]34.7274605186032[/C][C]42[/C][C]49.2725394813968[/C][/ROW]
[ROW][C]EM11[/C][C]58.818238155581[/C][C]61[/C][C]63.181761844419[/C][/ROW]
[ROW][C]EM14
[/C][C]60.5273365763251[/C][C]63[/C][C]65.4726634236749[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262629&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262629&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
IF1156.17278736595358.560.827212634047
IF1457.8182381555816062.181761844419
EF1156.736434997069259.562.2635650029308
EF1456.881885786697259.562.1181142133028
DF1144.54569867418425463.4543013258158
DF1445.48205104306854.563.517948956932
IM1142.00020657046365057.9997934295364
IM1434.72746051860324249.2725394813968
EM1158.8182381555816163.181761844419
EM14 60.52733657632516365.4726634236749



Parameters (Session):
par1 = 8 ;
Parameters (R input):
par1 = 8 ;
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')