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 12:26:26 +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/t1418473613br3od602cjg9qxh.htm/, Retrieved Thu, 16 May 2024 21:09:38 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267025, Retrieved Thu, 16 May 2024 21:09:38 +0000
QR Codes:

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

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:02:48] [b98453cac15ba1066b407e146608df68]
- RM D            [Notched Boxplots] [] [2014-12-13 12:26:26] [f403c9f98aaaf69e3ef2a3935929401f] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
68	50
54	62
71	65
54	78
73	73
52	75
84	66
42	61
66	69
65	68
72	67
70	76
81	70
71	62
71	58
72	65
68	69
70	70
61	66
60	64
77	70
72	61
69	62
71	66
70	64
64	59
76	64
52	66
59	53
68	59
76	66
67	71
59	66
76	73
63	71
75	66
63	78
60	68
73	68
63	60
75	69
63	67
63	63
75	59
60	73
73	66
61	62
60	69
56	55
78	67
67	65
68	60
72	71
59	76
64	59
73	68
62	52
65	59
65	60
71	57
65	60
68	61
64	71
74	57
76	66
68	69
72	59
69	66
66	67
51	61
56	75
67	55
57	63
56	69
63	58
47	68
76	62
64	62
68	65
64	69
65	58
71	66
63	47
68	72
72	62
70	64
61	50
61	68
62	79
71	66
51	71
56	74
70	78
73	60
48	69
59	65
79	78
60	72
59	70
62	63
59	74
63	67
58	66
48	61
73	69
68	69
62	64
69	78
58	60
60	73
74	67
62	65
58	74
72	81
66	49
72	64
62	57
75	51
55	70
64	75
19	70
70	65
69	55
71	48
48	65
73	74
74	39
66	69
75	63
53	67
50	68
70	78
78	59
59	62
63	74
71	67
62	52
80	53
73	63
67	78
73	65
74	77
32	69
84	41
58	76
60	67
59	69
57	59
68	63
68	56
69	64
60	75
66	67
72	55
55	73
74	66
53	75
65	65
80	75
67	62
74	63
69	60
71	64
65	74
69	71
69	69
68	63
74	73
67	55
63	77
68	60
68	66
70	68
66	69
70	72
75	50
73	72
62	71
69	74
65	64
73	76
61	75
68	73
76	55
63	62
73	78
72	59
52	59
65	71
78	53
68	76
56	64
68	72
77	58
57	54
61	71
71	66
72	63
66	66
66	78
59	72
70	65
64	67
78	84
77	63
78	55
68	67
60	71
65	72
64	60
80	67
69	73
79	66
60	66
76	75
53	50
69	NA
68	NA
67	NA
75	NA
73	NA
70	NA
64	NA
63	NA
67	NA
58	NA
79	NA
66	NA
57	NA
67	NA
74	NA
57	NA
62	NA
74	NA
62	NA
66	NA
64	NA
74	NA
66	NA
65	NA
70	NA
66	NA
77	NA
67	NA
72	NA
58	NA
84	NA
58	NA
75	NA
72	NA
58	NA
69	NA
54	NA
58	NA
67	NA
77	NA
80	NA
75	NA
75	NA
79	NA
76	NA
72	NA
81	NA
52	NA
76	NA
72	NA
77	NA
64	NA
72	NA
79	NA
40	NA
71	NA
75	NA
70	NA
73	NA
74	NA
58	NA
51	NA
70	NA
64	NA
77	NA
NA	NA
NA	NA
71	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267025&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'George Udny Yule' @ yule.wessa.net






\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
EM & 47 & 62 & 68 & 73 & 84 \tabularnewline
EF & 47 & 61 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267025&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]EM[/C][C]47[/C][C]62[/C][C]68[/C][C]73[/C][C]84[/C][/ROW]
[ROW][C]EF[/C][C]47[/C][C]61[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267025&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
EM66.96503606120316869.0349639387969
EF64.92494616844526667.0750538315548

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
EM & 66.9650360612031 & 68 & 69.0349639387969 \tabularnewline
EF & 64.9249461684452 & 66 & 67.0750538315548 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267025&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]EM[/C][C]66.9650360612031[/C][C]68[/C][C]69.0349639387969[/C][/ROW]
[ROW][C]EF[/C][C]64.9249461684452[/C][C]66[/C][C]67.0750538315548[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267025&T=2

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


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