Free Statistics

of Irreproducible Research!

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:37:28 +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/t1418474281yjsuk1wb5z1gdnp.htm/, Retrieved Thu, 16 May 2024 07:31:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=267037, Retrieved Thu, 16 May 2024 07:31:08 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact81
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:37:28] [f403c9f98aaaf69e3ef2a3935929401f] [Current]
Feedback Forum

Post a new message
Dataseries X:
92	65
77	95
115	92
81	105
100	115
75	121
136	93
85	95
93	107
109	98
103	106
106	113
128	86
117	97
107	93
108	81
104	108
104	109
89	92
89	106
118	106
104	89
95	87
100	97
108	90
94	85
109	95
77	91
92	88
103	84
97	112
109	104
89	97
119	109
97	103
111	104
91	121
88	101
116	109
104	90
101	103
93	105
97	94
91	89
85	108
109	101
99	101
90	102
96	89
106	102
92	99
90	81
108	111
82	113
98	96
109	107
91	102
80	90
78	97
112	84
97	96
101	107
91	110
115	97
117	93
85	106
112	99
110	81
103	105
82	104
64	127
96	83
93	93
77	93
102	87
71	108
119	73
96	92
103	99
84	107
99	94
118	102
92	66
102	105
109	86
110	95
83	89
101	107
90	110
108	99
92	113
56	112
106	118
114	79
72	95
90	100
122	115
97	102
77	99
102	82
101	115
92	101
85	108
80	96
106	106
97	118
90	100
103	115
93	74
93	109
106	96
76	79
84	107
109	123
102	69
107	96
90	89
113	73
79	109
105	110
16	103
101	103
94	82
111	81
65	104
102	105
107	27
100	98
113	90
76	104
81	98
109	111
107	91
93	101
102	108
109	100
97	83
124	82
107	95
109	114
108	86
110	111
52	112
117	81
76	118
97	94
91	93
82	91
107	109
111	84
107	111
56	124
104	95
104	99
80	107
108	102
66	115
97	93
124	107
110	86
110	86
107	94
103	98
82	115
102	102
112	104
80	100
103	104
104	87
95	109
113	91
103	91
78	102
101	112
104	106
95	82
99	113
94	113
100	111
106	100
102	114
92	108
101	113
120	84
88	106
111	121
116	92
79	90
94	104
115	64
103	121
75	88
104	112
115	90
77	67
98	99
116	102
109	80
102	102
89	115
89	112
90	102
90	105
119	132
116	102
117	84
101	91
97	107
109	103
97	90
121	88
112	106
126	97
101	93
112	115
91	94
115	NA
100	NA
99	NA
103	NA
117	NA
113	NA
97	NA
82	NA
112	NA
93	NA
120	NA
106	NA
96	NA
100	NA
117	NA
85	NA
93	NA
107	NA
94	NA
100	NA
85	NA
116	NA
99	NA
90	NA
106	NA
108	NA
114	NA
105	NA
112	NA
77	NA
125	NA
93	NA
118	NA
104	NA
89	NA
104	NA
90	NA
74	NA
99	NA
120	NA
119	NA
113	NA
117	NA
124	NA
108	NA
115	NA
125	NA
65	NA
112	NA
109	NA
116	NA
94	NA
103	NA
129	NA
62	NA
86	NA
110	NA
111	NA
118	NA
104	NA
87	NA
83	NA
98	NA
102	NA
111	NA
NA	NA
NA	NA
109	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA
NA	NA




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.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 & 'Sir Ronald Aylmer Fisher' @ fisher.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267037&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]'Sir Ronald Aylmer Fisher' @ fisher.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267037&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267037&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 computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
TM & 64 & 91 & 102 & 109 & 136 \tabularnewline
TF & 67 & 91 & 100 & 107.5 & 132 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267037&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]TM[/C][C]64[/C][C]91[/C][C]102[/C][C]109[/C][C]136[/C][/ROW]
[ROW][C]TF[/C][C]67[/C][C]91[/C][C]100[/C][C]107.5[/C][C]132[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267037&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
TM100.306422645605102103.693577354395
TF98.2261611779345100101.773838822065

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
TM & 100.306422645605 & 102 & 103.693577354395 \tabularnewline
TF & 98.2261611779345 & 100 & 101.773838822065 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=267037&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]TM[/C][C]100.306422645605[/C][C]102[/C][C]103.693577354395[/C][/ROW]
[ROW][C]TF[/C][C]98.2261611779345[/C][C]100[/C][C]101.773838822065[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=267037&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=267037&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
TM100.306422645605102103.693577354395
TF98.2261611779345100101.773838822065



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