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 computationSat, 13 Dec 2014 13:26:35 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2014/Dec/13/t1418477210x7erwwc46jof7b1.htm/, Retrieved Thu, 16 May 2024 21:25:21 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267077, Retrieved Thu, 16 May 2024 21:25:21 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2014-12-13 13:26:35] [bf1f5a1308c68adea21a52e026401dff] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
18 NA
39 NA
46 NA
31 NA
67 NA
35 NA
52 NA
77 NA
37 NA
32 NA
36 NA
69 NA
21 NA
NA 26
54 NA
36 NA
23 NA
112 NA
35 NA
47 NA
37 NA
NA 109
20 NA
22 NA
23 NA
32 NA
30 NA
43 NA
16 NA
NA 49
43 NA
46 NA
19 NA
NA 23
59 NA
NA 32
19 NA
NA 22
48 NA
23 NA
33 NA
34 NA
48 NA
18 NA
33 NA
67 NA
80 NA
32 NA
43 NA
NA 38
29 NA
32 NA
NA 35
NA 29
NA 12
NA 37
NA 51
NA 14
NA 20
NA 11
NA 35
NA 8
NA 24

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'Gertrude Mary Cox' @ cox.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 & 1 seconds \tabularnewline
R Server & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267077&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267077&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267077&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'Gertrude Mary Cox' @ cox.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
uren_sch1629354769
uren_bach82027.53751

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
uren_sch & 16 & 29 & 35 & 47 & 69 \tabularnewline
uren_bach & 8 & 20 & 27.5 & 37 & 51 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267077&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]uren_sch[/C][C]16[/C][C]29[/C][C]35[/C][C]47[/C][C]69[/C][/ROW]
[ROW][C]uren_bach[/C][C]8[/C][C]20[/C][C]27.5[/C][C]37[/C][C]51[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267077&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
uren_sch30.76041511466043539.2395848853396
uren_bach21.169037285776427.533.8309627142236

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
uren_sch & 30.7604151146604 & 35 & 39.2395848853396 \tabularnewline
uren_bach & 21.1690372857764 & 27.5 & 33.8309627142236 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267077&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]uren_sch[/C][C]30.7604151146604[/C][C]35[/C][C]39.2395848853396[/C][/ROW]
[ROW][C]uren_bach[/C][C]21.1690372857764[/C][C]27.5[/C][C]33.8309627142236[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267077&T=2

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


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