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 computationSun, 20 Dec 2009 06:59:51 -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/2009/Dec/20/t1261317926ngvg0ub953w1tmj.htm/, Retrieved Sat, 27 Apr 2024 08:01:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=69888, Retrieved Sat, 27 Apr 2024 08:01:16 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsx= inschrijving nieuwe personenwagens y= werkoosheid in België
Estimated Impact128
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Multiple Regression] [Q1 The Seatbeltlaw] [2007-11-14 19:27:43] [8cd6641b921d30ebe00b648d1481bba0]
- RMPD  [Multiple Regression] [Seatbelt] [2009-11-12 13:54:52] [b98453cac15ba1066b407e146608df68]
- R PD    [Multiple Regression] [Model 1] [2009-11-19 20:45:20] [2c014794d4323c20be9bea6a55dac7b2]
- RMPD        [Notched Boxplots] [Notched boxplot] [2009-12-20 13:59:51] [98a394f1ba36b7d222077a0ff8e761bd] [Current]
Feedback Forum

Post a new message
Dataseries X:
18004	594
17537	611
20366	613
22782	611
19169	594
13807	595
29743	591
25591	589
29096	584
26482	573
22405	567
27044	569
17970	621
18730	629
19684	628
19785	612
18479	595
10698	597
31956	593
29506	590
34506	580
27165	574
26736	573
23691	573
18157	620
17328	626
18205	620
20995	588
17382	566
9367	557
31124	561
26551	549
30651	532
25859	526
25100	511
25778	499
20418	555
18688	565
20424	542
24776	527
19814	510
12738	514
31566	517
30111	508
30019	493
31934	490
25826	469
26835	478
20205	528
17789	534
20520	518
22518	506
15572	502
11509	516
25447	528
24090	533
27786	536
26195	537
20516	524
22759	536
19028	587
16971	597
20036	581
22485	564
18730	558




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

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

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
X936718688224052655134506
Y469527565593629

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
X & 9367 & 18688 & 22405 & 26551 & 34506 \tabularnewline
Y & 469 & 527 & 565 & 593 & 629 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=69888&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]X[/C][C]9367[/C][C]18688[/C][C]22405[/C][C]26551[/C][C]34506[/C][/ROW]
[ROW][C]Y[/C][C]469[/C][C]527[/C][C]565[/C][C]593[/C][C]629[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=69888&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
X20864.04951344162240523945.9504865584
Y552.065657877037565577.934342122963

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
X & 20864.0495134416 & 22405 & 23945.9504865584 \tabularnewline
Y & 552.065657877037 & 565 & 577.934342122963 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=69888&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]X[/C][C]20864.0495134416[/C][C]22405[/C][C]23945.9504865584[/C][/ROW]
[ROW][C]Y[/C][C]552.065657877037[/C][C]565[/C][C]577.934342122963[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=69888&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=69888&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
X20864.04951344162240523945.9504865584
Y552.065657877037565577.934342122963



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