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 computationMon, 26 Nov 2012 06:00:59 -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/Nov/26/t135392767627e9e9cy9g7kosq.htm/, Retrieved Tue, 30 Apr 2024 01:06:50 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=193022, Retrieved Tue, 30 Apr 2024 01:06:50 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2012-11-26 11:00:59] [d76b387543b13b5e3afd8ff9e5fdc89f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
30	31
34	27
36	34
37	35
30	37
35	40
30	30
31	28
37	28
32	32
30	33
30	28
35	25
30	34
32	30
35	38
30	28
29	35
35	33
30	39
31	30
31	31
31	33
30	30
31	24
30	31
34	27
34	26
31	33
30	33
23	26
30	35
32	26
30	30
36	28
28	27
29	34
36	29
34	28
37	32
30	26
30	29
27	25
32	37
39	24
31	24
31	23
30	31
30	26
29	31
29	31
35	25
27	23
33	31
30	38
19	18
36	29
30	28
37	30
30	28
29	23
33	25
30	27
30	20
26	35
36	19
30	24
30	24
32	29
21	26
31	28
30	32
33	28
29	23
35	27
43	31
30	24
31	23
31	26
30	32
30	20
35	29
36	28
33	27
31	20
28	21
32	31
20	21
30	21
27	24
30	29
29	26
29	29
22	27
30	32
30	26
26	18
28	25
30	19
30	27
31	14
25	16
30	25
19	26
2	25
32	24
24	29
31	10
30	24
4	22
1	22
4	10
0	24
0	24
NA	33
NA	27
NA	24
NA	25
NA	24
NA	16
NA	37
NA	28
NA	20
NA	24
NA	24
NA	30
NA	26
NA	20
NA	23
NA	12
NA	24
NA	16
NA	26
NA	11
NA	25
NA	3
NA	24
NA	34
NA	26
NA	29
NA	26
NA	1
NA	29
NA	10
NA	8
NA	10
NA	23
NA	15
NA	12
NA	24
NA	3
NA	6
NA	21
NA	24
NA	14
NA	1
NA	15
NA	21
NA	0
NA	0
NA	18
NA	0
NA	4
NA	0
NA	0
NA	0
NA	0
NA	0

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'Herman Ole Andreas Wold' @ wold.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 & 'Herman Ole Andreas Wold' @ wold.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193022&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]'Herman Ole Andreas Wold' @ wold.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193022&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=193022&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'Herman Ole Andreas Wold' @ wold.wessa.net






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
pr_UK & 25 & 29 & 30 & 32 & 36 \tabularnewline
pr_B & 10 & 21 & 26 & 29.5 & 40 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193022&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]pr_UK[/C][C]25[/C][C]29[/C][C]30[/C][C]32[/C][C]36[/C][/ROW]
[ROW][C]pr_B[/C][C]10[/C][C]21[/C][C]26[/C][C]29.5[/C][C]40[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193022&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
pr_UK29.55605832531033030.4439416746897
pr_B24.96385300500462627.0361469949954

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
pr_UK & 29.5560583253103 & 30 & 30.4439416746897 \tabularnewline
pr_B & 24.9638530050046 & 26 & 27.0361469949954 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=193022&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]pr_UK[/C][C]29.5560583253103[/C][C]30[/C][C]30.4439416746897[/C][/ROW]
[ROW][C]pr_B[/C][C]24.9638530050046[/C][C]26[/C][C]27.0361469949954[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=193022&T=2

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


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