FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationFri, 13 Nov 2009 10:51:30 -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/Nov/13/t1258134870i16xz9je7haajnf.htm/, Retrieved Sun, 05 May 2024 16:07:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56944, Retrieved Sun, 05 May 2024 16:07:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact114

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-    D    [Notched Boxplots] [] [2009-11-13 17:51:30] [c88a5f1b97e332c6387d668c465455af] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
1258	280
1199	557
1158	831
1427	1081
934	1318
709	1578
1186	1859
986	2141
1033	2428
1257	2715
1105	3004
1179	3309
1092	269
1092	537
1087	813
2028	1068
2039	1411
2010	1675
754	1958
760	2242
715	2524
855	2836
971	3143
815	3522
915	285
843	574
761	865
1858	1147
2968	1516
4061	1789
3661	2087
3269	2372
2857	2669
2568	2966
2274	3270
1987	3652
683	329
381	658
71	988
1772	1303
3485	1603
5181	1929
4479	2235
3782	2544
3067	2872
2489	3198
1903	3544
1330	3903
736	332
483	665
242	1001
1334	1329
2423	1639
3523	1975
2986	2304
2462	2640
1908	2992
1575	3330
1237	3690
904	4063

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56944&T=0

As an alternative you can also use a QR Code:  
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
bel.71909.51257.52442.54479
ink.2691034.51943.528544063

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
bel. & 71 & 909.5 & 1257.5 & 2442.5 & 4479 \tabularnewline
ink. & 269 & 1034.5 & 1943.5 & 2854 & 4063 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56944&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]bel.[/C][C]71[/C][C]909.5[/C][C]1257.5[/C][C]2442.5[/C][C]4479[/C][/ROW]
[ROW][C]ink.[/C][C]269[/C][C]1034.5[/C][C]1943.5[/C][C]2854[/C][C]4063[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56944&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56944&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
bel.71909.51257.52442.54479
ink.2691034.51943.528544063






Boxplot Notches
Variablelower boundmedianupper bound
bel.944.8030705939061257.51570.19692940609
ink.1572.363624882981943.52314.63637511702

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
bel. & 944.803070593906 & 1257.5 & 1570.19692940609 \tabularnewline
ink. & 1572.36362488298 & 1943.5 & 2314.63637511702 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56944&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]bel.[/C][C]944.803070593906[/C][C]1257.5[/C][C]1570.19692940609[/C][/ROW]
[ROW][C]ink.[/C][C]1572.36362488298[/C][C]1943.5[/C][C]2314.63637511702[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56944&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56944&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
bel.944.8030705939061257.51570.19692940609
ink.1572.363624882981943.52314.63637511702


Figures (Output of Computation)

Input Parameters & R Code

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