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:19:29 +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/t1417529994y2adwj7o6cz28gx.htm/, Retrieved Thu, 31 Oct 2024 23:20:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262657, Retrieved Thu, 31 Oct 2024 23:20:49 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact126
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] [a6b2572b29932aa41ecec373f1b28823]
-    D              [Notched Boxplots] [] [2014-12-02 14:19:29] [18ce79f318750841a7d9877f42eaf4c3] [Current]
Feedback Forum

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




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=262657&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=262657&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262657&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
IF13049556277
IF43046546584
EF144264.57184
EF44158657078
DF14471515
DF4445711
IM12948566176
IM43045536481
EM14250647084
EM44659656978
DM1446.51215
DM4 445814

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
IF1 & 30 & 49 & 55 & 62 & 77 \tabularnewline
IF4 & 30 & 46 & 54 & 65 & 84 \tabularnewline
EF1 & 4 & 42 & 64.5 & 71 & 84 \tabularnewline
EF4 & 41 & 58 & 65 & 70 & 78 \tabularnewline
DF1 & 4 & 4 & 7 & 15 & 15 \tabularnewline
DF4 & 4 & 4 & 5 & 7 & 11 \tabularnewline
IM1 & 29 & 48 & 56 & 61 & 76 \tabularnewline
IM4 & 30 & 45 & 53 & 64 & 81 \tabularnewline
EM1 & 42 & 50 & 64 & 70 & 84 \tabularnewline
EM4 & 46 & 59 & 65 & 69 & 78 \tabularnewline
DM1 & 4 & 4 & 6.5 & 12 & 15 \tabularnewline
DM4

 & 4 & 4 & 5 & 8 & 14 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262657&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]IF1[/C][C]30[/C][C]49[/C][C]55[/C][C]62[/C][C]77[/C][/ROW]
[ROW][C]IF4[/C][C]30[/C][C]46[/C][C]54[/C][C]65[/C][C]84[/C][/ROW]
[ROW][C]EF1[/C][C]4[/C][C]42[/C][C]64.5[/C][C]71[/C][C]84[/C][/ROW]
[ROW][C]EF4[/C][C]41[/C][C]58[/C][C]65[/C][C]70[/C][C]78[/C][/ROW]
[ROW][C]DF1[/C][C]4[/C][C]4[/C][C]7[/C][C]15[/C][C]15[/C][/ROW]
[ROW][C]DF4[/C][C]4[/C][C]4[/C][C]5[/C][C]7[/C][C]11[/C][/ROW]
[ROW][C]IM1[/C][C]29[/C][C]48[/C][C]56[/C][C]61[/C][C]76[/C][/ROW]
[ROW][C]IM4[/C][C]30[/C][C]45[/C][C]53[/C][C]64[/C][C]81[/C][/ROW]
[ROW][C]EM1[/C][C]42[/C][C]50[/C][C]64[/C][C]70[/C][C]84[/C][/ROW]
[ROW][C]EM4[/C][C]46[/C][C]59[/C][C]65[/C][C]69[/C][C]78[/C][/ROW]
[ROW][C]DM1[/C][C]4[/C][C]4[/C][C]6.5[/C][C]12[/C][C]15[/C][/ROW]
[ROW][C]DM4

[/C][C]4[/C][C]4[/C][C]5[/C][C]8[/C][C]14[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262657&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262657&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
IF13049556277
IF43046546584
EF144264.57184
EF44158657078
DF14471515
DF4445711
IM12948566176
IM43045536481
EM14250647084
EM44659656978
DM1446.51215
DM4 445814







Boxplot Notches
Variablelower boundmedianupper bound
IF153.10913973483685556.8908602651632
IF451.23643499706925456.7635650029308
EF160.281927100789964.568.7180728992101
EF463.25459052446486566.7454094755352
DF15.4000413140927178.59995868590729
DF44.5636476311161955.43635236888381
IM154.10913973483685657.8908602651632
IM450.23643499706925355.7635650029308
EM161.09098420744136466.9090157925587
EM463.54549210372066566.4545078962794
DM15.336393682976526.57.66360631702348
DM4 4.4181968414882655.58180315851174

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
IF1 & 53.1091397348368 & 55 & 56.8908602651632 \tabularnewline
IF4 & 51.2364349970692 & 54 & 56.7635650029308 \tabularnewline
EF1 & 60.2819271007899 & 64.5 & 68.7180728992101 \tabularnewline
EF4 & 63.2545905244648 & 65 & 66.7454094755352 \tabularnewline
DF1 & 5.40004131409271 & 7 & 8.59995868590729 \tabularnewline
DF4 & 4.56364763111619 & 5 & 5.43635236888381 \tabularnewline
IM1 & 54.1091397348368 & 56 & 57.8908602651632 \tabularnewline
IM4 & 50.2364349970692 & 53 & 55.7635650029308 \tabularnewline
EM1 & 61.0909842074413 & 64 & 66.9090157925587 \tabularnewline
EM4 & 63.5454921037206 & 65 & 66.4545078962794 \tabularnewline
DM1 & 5.33639368297652 & 6.5 & 7.66360631702348 \tabularnewline
DM4

 & 4.41819684148826 & 5 & 5.58180315851174 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=262657&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]IF1[/C][C]53.1091397348368[/C][C]55[/C][C]56.8908602651632[/C][/ROW]
[ROW][C]IF4[/C][C]51.2364349970692[/C][C]54[/C][C]56.7635650029308[/C][/ROW]
[ROW][C]EF1[/C][C]60.2819271007899[/C][C]64.5[/C][C]68.7180728992101[/C][/ROW]
[ROW][C]EF4[/C][C]63.2545905244648[/C][C]65[/C][C]66.7454094755352[/C][/ROW]
[ROW][C]DF1[/C][C]5.40004131409271[/C][C]7[/C][C]8.59995868590729[/C][/ROW]
[ROW][C]DF4[/C][C]4.56364763111619[/C][C]5[/C][C]5.43635236888381[/C][/ROW]
[ROW][C]IM1[/C][C]54.1091397348368[/C][C]56[/C][C]57.8908602651632[/C][/ROW]
[ROW][C]IM4[/C][C]50.2364349970692[/C][C]53[/C][C]55.7635650029308[/C][/ROW]
[ROW][C]EM1[/C][C]61.0909842074413[/C][C]64[/C][C]66.9090157925587[/C][/ROW]
[ROW][C]EM4[/C][C]63.5454921037206[/C][C]65[/C][C]66.4545078962794[/C][/ROW]
[ROW][C]DM1[/C][C]5.33639368297652[/C][C]6.5[/C][C]7.66360631702348[/C][/ROW]
[ROW][C]DM4

[/C][C]4.41819684148826[/C][C]5[/C][C]5.58180315851174[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=262657&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262657&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
IF153.10913973483685556.8908602651632
IF451.23643499706925456.7635650029308
EF160.281927100789964.568.7180728992101
EF463.25459052446486566.7454094755352
DF15.4000413140927178.59995868590729
DF44.5636476311161955.43635236888381
IM154.10913973483685657.8908602651632
IM450.23643499706925355.7635650029308
EM161.09098420744136466.9090157925587
EM463.54549210372066566.4545078962794
DM15.336393682976526.57.66360631702348
DM4 4.4181968414882655.58180315851174



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')