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 computationThu, 06 Nov 2008 17:13:13 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Nov/07/t1226016923muu4bl9cp59vfce.htm/, Retrieved Sun, 19 May 2024 00:54:18 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=22445, Retrieved Sun, 19 May 2024 00:54:18 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact209
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Mean Plot] [workshop 3] [2007-10-26 12:14:28] [e9ffc5de6f8a7be62f22b142b5b6b1a8]
F RM D    [Notched Boxplots] [] [2008-11-07 00:13:13] [905ab864170ee411eb174f5362414698] [Current]
-   P       [Notched Boxplots] [Notched Boxplots] [2008-11-07 08:38:14] [17bd4671b42d569d890f7246b2ee4ecc]
Feedback Forum
2008-11-10 15:14:30 [Käthe Vanderheggen] [reply
Deze vraag is fout opgelost. De student heeft geen gebruik gemaakt van de starplot om de auto’s te vergelijken. Nochtans is dat de beste methode.
http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/05/t122591482904jfakgdfu0rulw.htm
In deze link vindt u mijn berekeningen i.v.m. de star plot.
De spaken van de ster geven de variabelen weer waarop de auto’s worden getest. De lengte van de spaken is representatief voor de sterkte van de variabele. Met de starplot kunnen we de auto’s individueel onderzoeken maar vergelijken is ook mogelijk.
Enkele voorbeelden van overeenkomsten:
De 2 eerste Mazda’s komen overeen in variabelen en zijn beide relatief sterk in mpg, zwak in hp en disp. De Mercedes 280’s doen het bijna bij elke variabele redelijk maar hebben een zwakkere hp en disp. De CadillacFl en LincolnCont zijn beiden sterk in hp, disp en cyl maar zwak in drat. De Honda Civik, FiatX 1-9 en Toyota Corolla vertonen grote gelijkenissen qua sterkte in mpg en qsec en drat maar zijn allen zwak met betrekking tot de rest van de variabelen.
2008-11-12 00:01:09 [5faab2fc6fb120339944528a32d48a04] [reply
De student heeft een foutieve methode gebruikt. Het is aan te raden bij deze vraag een starplot te gebruiken. Dit kan enkel doordat er weinig variabelen en weinig metingen zijn. Indien er zeer veel zouden zijn blijft de voorstelling niet overzichtelijk. De lengte van de starassen geeft namelijk de grootte van de vertegenwoordigde variabele weer. Dit is mijn verwerking van de starplot : http://www.freestatistics.org/blog/index.php?v=date/2008/Nov/06/t1226003755qr46389st6bpaeu.htm
Uit deze stars kan je aan de hand van gelijke lengte van assen uitspraken doen over gelijkheden in verband met karaktiristieken van de auto's.

Post a new message
Dataseries X:
21	6	160	110	3,9	2,62	16,46
21	6	160	110	3,9	2,875	17,02
22,8	4	108	93	3,85	2,32	18,61
21,4	6	258	110	3,08	3,215	19,44
18,7	8	360	175	3,15	3,44	17,02
18,1	6	225	105	2,76	3,46	20,22
14,3	8	360	245	3,21	3,57	15,84
24,4	4	146,7	62	3,69	3,19	20
22,8	4	140,8	95	3,92	3,15	22,9
19,2	6	167,6	123	3,92	3,44	18,3
17,8	6	167,6	123	3,92	3,44	18,9
16,4	8	275,8	180	3,07	4,07	17,4
17,3	8	275,8	180	3,07	3,73	17,6
15,2	8	275,8	180	3,07	3,78	18
10,4	8	472	205	2,93	5,25	17,98
10,4	8	460	215	3	5,424	17,82
14,7	8	440	230	3,23	5,345	17,42
32,4	4	78,7	66	4,08	2,2	19,47
30,4	4	75,7	52	4,93	1,615	18,52
33,9	4	71,1	65	4,22	1,835	19,9
21,5	4	120,1	97	3,7	2,465	20,01
15,5	8	318	150	2,76	3,52	16,87
15,2	8	304	150	3,15	3,435	17,3
13,3	8	350	245	3,73	3,84	15,41
19,2	8	400	175	3,08	3,845	17,05
27,3	4	79	66	4,08	1,935	18,9
26	4	120,3	91	4,43	2,14	16,7
30,4	4	95,1	113	3,77	1,513	16,9
15,8	8	351	264	4,22	3,17	14,5
19,7	6	145	175	3,62	2,77	15,5
15	8	301	335	3,54	3,57	14,6
21,4	4	121	109	4,11	2,78	18,6




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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=22445&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=22445&T=0

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
mpg10.415.3519.222.833.9
cyl44688
disp71.1120.65196.3334472
hp5296123180264
drat2.763.083.6953.924.93
wt1.5132.54253.3253.655.25
qsec14.516.88517.7118.920.22

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
mpg & 10.4 & 15.35 & 19.2 & 22.8 & 33.9 \tabularnewline
cyl & 4 & 4 & 6 & 8 & 8 \tabularnewline
disp & 71.1 & 120.65 & 196.3 & 334 & 472 \tabularnewline
hp & 52 & 96 & 123 & 180 & 264 \tabularnewline
drat & 2.76 & 3.08 & 3.695 & 3.92 & 4.93 \tabularnewline
wt & 1.513 & 2.5425 & 3.325 & 3.65 & 5.25 \tabularnewline
qsec & 14.5 & 16.885 & 17.71 & 18.9 & 20.22 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22445&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]mpg[/C][C]10.4[/C][C]15.35[/C][C]19.2[/C][C]22.8[/C][C]33.9[/C][/ROW]
[ROW][C]cyl[/C][C]4[/C][C]4[/C][C]6[/C][C]8[/C][C]8[/C][/ROW]
[ROW][C]disp[/C][C]71.1[/C][C]120.65[/C][C]196.3[/C][C]334[/C][C]472[/C][/ROW]
[ROW][C]hp[/C][C]52[/C][C]96[/C][C]123[/C][C]180[/C][C]264[/C][/ROW]
[ROW][C]drat[/C][C]2.76[/C][C]3.08[/C][C]3.695[/C][C]3.92[/C][C]4.93[/C][/ROW]
[ROW][C]wt[/C][C]1.513[/C][C]2.5425[/C][C]3.325[/C][C]3.65[/C][C]5.25[/C][/ROW]
[ROW][C]qsec[/C][C]14.5[/C][C]16.885[/C][C]17.71[/C][C]18.9[/C][C]20.22[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22445&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22445&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
mpg10.415.3519.222.833.9
cyl44688
disp71.1120.65196.3334472
hp5296123180264
drat2.763.083.6953.924.93
wt1.5132.54253.3253.655.25
qsec14.516.88517.7118.920.22







Boxplot Notches
Variablelower boundmedianupper bound
mpg17.119161519663319.221.2808384803367
cyl4.8827712857252567.11722871427475
disp136.709813452371196.3255.890186547629
hp99.5381970002304123146.461802999770
drat3.460381970002303.6953.9296180299977
wt3.015667299735183.3253.63433270026482
qsec17.147196035184117.7118.2728039648159

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
mpg & 17.1191615196633 & 19.2 & 21.2808384803367 \tabularnewline
cyl & 4.88277128572525 & 6 & 7.11722871427475 \tabularnewline
disp & 136.709813452371 & 196.3 & 255.890186547629 \tabularnewline
hp & 99.5381970002304 & 123 & 146.461802999770 \tabularnewline
drat & 3.46038197000230 & 3.695 & 3.9296180299977 \tabularnewline
wt & 3.01566729973518 & 3.325 & 3.63433270026482 \tabularnewline
qsec & 17.1471960351841 & 17.71 & 18.2728039648159 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=22445&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]mpg[/C][C]17.1191615196633[/C][C]19.2[/C][C]21.2808384803367[/C][/ROW]
[ROW][C]cyl[/C][C]4.88277128572525[/C][C]6[/C][C]7.11722871427475[/C][/ROW]
[ROW][C]disp[/C][C]136.709813452371[/C][C]196.3[/C][C]255.890186547629[/C][/ROW]
[ROW][C]hp[/C][C]99.5381970002304[/C][C]123[/C][C]146.461802999770[/C][/ROW]
[ROW][C]drat[/C][C]3.46038197000230[/C][C]3.695[/C][C]3.9296180299977[/C][/ROW]
[ROW][C]wt[/C][C]3.01566729973518[/C][C]3.325[/C][C]3.63433270026482[/C][/ROW]
[ROW][C]qsec[/C][C]17.1471960351841[/C][C]17.71[/C][C]18.2728039648159[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=22445&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=22445&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
mpg17.119161519663319.221.2808384803367
cyl4.8827712857252567.11722871427475
disp136.709813452371196.3255.890186547629
hp99.5381970002304123146.461802999770
drat3.460381970002303.6953.9296180299977
wt3.015667299735183.3253.63433270026482
qsec17.147196035184117.7118.2728039648159



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