Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationTue, 18 Dec 2007 11:07:07 -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/2007/Dec/18/t1198000252up0ti1d38e554tj.htm/, Retrieved Sat, 04 May 2024 13:04:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=4568, Retrieved Sat, 04 May 2024 13:04:38 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsLise Swinnen
Estimated Impact181
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [ examenoutput omz...] [2007-12-18 18:07:07] [a526d213baffe7453818dd375c9a7100] [Current]
Feedback Forum

Post a new message
Dataseries X:
122302.01
109264.65
103674.75
103890.3
75512.66
83121.3
125096.81
74206.73
88481.63
111598.17
146919.48
150790.85
113780.5
110870.76
118785.32
112820.5
102188.92
97092.73
114067.82
89690.15
89267.9
96198.64
129599.75
169424.7
152510.91
121850.2
144737.64
121381.88
106894.86
94305.06
116800.42
77584.28
100680.88
106634.05
168390.77
211971.89
136163.28
168950.25
89816.88
85406.93
66055.52
73311.68
85674.51
82822.59
94277.63
100991.65
149245.88
208517.17
40733.51
121352.23
104020.11
99566.82
101352.17
106628.41
109696.95
248696.37
105628.33
120449.17
136547.7
140896.42
131509.91
95450.31
133592.64
110332.9
88110.54
64931.25
98446.22
84212.38
77519.55
124806.02
102185.94
151348.79
124378.28
101433.13
126724.22
87461.88
95288.27
129055.33
107753.06
96364.03
71662.75
125666.24
456841.51
167642.32
167154.73
139685.18
119275.2
122746.05
107337.43
112584.89
133183.08
121152.57
119815.6
122858.44
152077.17
157221.96
140435.08
101455.09
104791.29
77226.59
84477.43
66227.74
89076.23
108924.43
83926.11
91764.8
120892.76
129952.42
135865.14
105512.77
96486.62
78064.88
92370.22
98454.46
96703.93
83170.95




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4568&T=0

[TABLE]
[ROW][C]Summary of compuational 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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4568&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4568&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
omzet64931.2593323.925107545.245127889.775169424.7

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
omzet & 64931.25 & 93323.925 & 107545.245 & 127889.775 & 169424.7 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4568&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]omzet[/C][C]64931.25[/C][C]93323.925[/C][C]107545.245[/C][C]127889.775[/C][C]169424.7[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4568&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
omzet102474.458407949107545.245112616.031592051

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
omzet & 102474.458407949 & 107545.245 & 112616.031592051 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4568&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]omzet[/C][C]102474.458407949[/C][C]107545.245[/C][C]112616.031592051[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=4568&T=2

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



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