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 08:06:33 -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/t1258124858b21jtvb0j54fy2r.htm/, Retrieved Sun, 05 May 2024 12:26:24 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56786, Retrieved Sun, 05 May 2024 12:26:24 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [Notched Boxplots] [2009-11-13 15:06:33] [99bf2a1e962091d45abf4c2600a412f9] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
100	100	100
99.82206406	81.17989198	105.5710072
98.7544484	109.0569173	101
96.79715302	81.78230162	113.202697
95.55160142	83.17407561	102
96.61921708	115.4964686	92.48841129
105.6939502	81.47071043	103
108.7188612	78.0847528	62.99199326
109.0747331	85.9576236	104
108.7188612	96.26090569	82.42730721
105.6939502	83.00789364	105
105.8718861	89.48899044	52.87399916
105.1601423	86.06148733	106
104.8042705	92.00249273	96.06826802
103.9145907	108.4129622	107
101.9572954	102.3888658	102.3261694
100.8896797	119.5471541	108
101.2455516	116.1611965	104.4774547
110.4982206	86.47694225	109
111.9217082	103.0743664	70.33080489
111.7437722	108.184462	110
108.8967972	98.77440798	78.03202697
105.8718861	93.29040299	111
106.227758	119.069381	44.18879056
105.5160142	119.0486082	112
104.9822064	104.6946406	115.7922461
103.202847	126.7552971	113
102.1352313	101.8695472	108.6599241
101.9572954	111.5288741	114
101.9572954	115.8703781	98.27433628
110.3202847	95.9493145	115
111.3879004	98.27586207	70.06531816
110.3202847	104.092231	116
104.6263345	110.0747819	87.79603877
100.7117438	86.12380557	117
99.11032028	96.07395098	44.69026549
99.82206406	98.3797258	118
97.68683274	87.64021604	103.7315634
94.66192171	106.2733693	119
93.59430605	87.34939759	101.3548251
90.9252669	85.60448691	120
88.79003559	106.0033236	106.3990729
98.7544484	89.32280848	121
100.5338078	95.09763191	71.95322377
96.44128114	79.12339011	122
93.77224199	114.7901953	97.67383059
90.74733096	88.22185293	123
91.45907473	79.55961778	50.29919933
91.99288256	91.27544661	124
90.39145907	100.249273	118.8137379
87.72241993	91.58703781	125
87.1886121	94.91067719	131.2684366
83.4519573	85.29289572	126
85.05338078	99.58454508	107.8128951
93.95017794	81.30452846	127
95.01779359	78.79102617	69.98103666
92.17081851	91.50394682	128
90.03558719	83.54798504	91.21576064
89.32384342	85.16825924	129
91.81494662	99.4599086	46.26211547

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

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


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