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, 14 Dec 2012 06:57:56 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/14/t13554863132yjlvv0yl3g21vp.htm/, Retrieved Tue, 23 Apr 2024 14:34:16 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=199508, Retrieved Tue, 23 Apr 2024 14:34:16 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kernel Density Estimation] [] [2011-10-18 22:42:23] [b98453cac15ba1066b407e146608df68]
- RMPD    [Percentiles] [] [2011-10-18 22:46:45] [b98453cac15ba1066b407e146608df68]
- RMPD      [Notched Boxplots] [] [2011-10-18 22:58:56] [b98453cac15ba1066b407e146608df68]
-    D        [Notched Boxplots] [] [2011-10-18 23:08:24] [b98453cac15ba1066b407e146608df68]
- R               [Notched Boxplots] [1.2] [2012-12-14 11:57:56] [b650a28572edc4a1d205c228043a3295] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
131	NA
112	NA
116	NA
110	NA
112	NA
144	NA
116	NA
123	NA
126	NA
116	NA
122	NA
126	NA
109	NA
NA	115
155	NA
114	NA
104	NA
153	NA
126	NA
123	NA
90	NA
131	NA
73	NA
121	NA
118	NA
127	NA
127	NA
NA	88
101	NA
125	NA
136	NA
123	NA
113	NA
97	NA
105	NA
123	NA
NA	113
113	NA
163	NA
133	NA
126	NA
123	NA
128	NA
136	NA
124	NA
98	NA
91	NA
117	NA
120	NA
109	NA
109	NA
103	NA
137	NA
86	NA
136	NA
112	NA
118	NA
114	NA
109	NA
126	NA
NA	113
112	NA
128	NA
124	NA
109	NA
130	NA
144	NA
122	NA
132	NA
103	NA
137	NA
134	NA
108	NA
NA	134
147	NA
104	NA
101	NA
134	NA
154	NA
NA	92
129	NA
97	NA
120	NA
121	NA
120	NA
148	NA
135	NA
101	NA
100	NA
122	NA
85	NA
131	NA
121	NA
127	NA
122	NA
124	NA
121	NA
109	NA
112	NA
146	NA
117	NA
101	NA
125	NA
137	NA
119	NA
113	NA
103	NA
123	NA
117	NA
131	NA
130	NA
124	NA
101	NA
NA	111
144	NA
96	NA
119	NA
121	NA
107	NA
100	NA
108	NA
130	NA
105	NA
96	NA
NA	146
129	NA
NA	141
111	NA
110	NA
NA	129
111	NA
137	NA
NA	89
112	NA
NA	141
106	NA
131	NA
115	NA
143	NA
NA	131
96	NA
126	NA
110	NA
114	NA
NA	143
105	NA
122	NA
124	NA
124	NA
117	NA
NA	119
128	NA
136	NA
134	NA
134	NA
117	NA
120	NA
119	NA
121	NA
NA	114
98	NA
109	NA

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=199508&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 time2 seconds
R Server'Sir Maurice George Kendall' @ kendall.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Windows85109120.5128155
Mac88112117137.5146

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Windows & 85 & 109 & 120.5 & 128 & 155 \tabularnewline
Mac & 88 & 112 & 117 & 137.5 & 146 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=199508&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]Windows[/C][C]85[/C][C]109[/C][C]120.5[/C][C]128[/C][C]155[/C][/ROW]
[ROW][C]Mac[/C][C]88[/C][C]112[/C][C]117[/C][C]137.5[/C][C]146[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=199508&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Windows118.015527122416120.5122.984472877584
Mac106.9275117127.0725

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Windows & 118.015527122416 & 120.5 & 122.984472877584 \tabularnewline
Mac & 106.9275 & 117 & 127.0725 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=199508&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]Windows[/C][C]118.015527122416[/C][C]120.5[/C][C]122.984472877584[/C][/ROW]
[ROW][C]Mac[/C][C]106.9275[/C][C]117[/C][C]127.0725[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=199508&T=2

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


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