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 computationWed, 23 Oct 2013 09:05:48 -0400
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2013/Oct/23/t13825335665dkkkawdcqqpwf9.htm/, Retrieved Sat, 27 Apr 2024 17:38:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=218908, Retrieved Sat, 27 Apr 2024 17:38:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact72
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Cronbach Alpha] [Intrinsic Motivat...] [2010-10-12 11:46:14] [b98453cac15ba1066b407e146608df68]
- RMPD    [Notched Boxplots] [] [2013-10-23 13:05:48] [4a4acd0e332e84f1be693c3136326ce2] [Current]
- RM        [Notched Boxplots] [Ws 3 task 4] [2013-10-23 16:00:52] [f12bfb29749f0c3f544bf278d0782c85]
Feedback Forum

Post a new message
Dataseries X:
127 NA
108 NA
110 NA
NA 102
104 NA
140 NA
NA 112
115 NA
121 NA
112 NA
NA 118
NA 122
105 NA
111 NA
151 NA
NA 106
100 NA
NA 149
NA 122
115 NA
NA 86
124 NA
69 NA
NA 117
113 NA
123 NA
123 NA
84 NA
NA 97
121 NA
NA 132
119 NA
98 NA
NA 87
NA 101
NA 115
109 NA
NA 109
NA 159
129 NA
119 NA
119 NA
122 NA
NA 131
NA 120
82 NA
NA 86
NA 105
114 NA
NA 100
100 NA
99 NA
132 NA
82 NA
NA 132
107 NA
114 NA
110 NA
NA 105
NA 121
109 NA
106 NA
124 NA
NA 120
91 NA
NA 126
NA 138
NA 118
128 NA
98 NA
133 NA
NA 130
NA 103
124 NA
142 NA
96 NA
93 NA
NA 129
NA 150
NA 88
NA 125
92 NA
NA NA
117 NA
NA 112
NA 144
130 NA
87 NA
92 NA
114 NA
81 NA
NA 127
115 NA
123 NA
115 NA
117 NA
NA 117
103 NA
NA 108
NA 139
113 NA
NA 97
117 NA
133 NA
NA 115
103 NA
NA 95
117 NA
113 NA
127 NA
126 NA
119 NA
97 NA
105 NA
140 NA
NA 91
112 NA
113 NA
NA 102
92 NA
98 NA
122 NA
100 NA
84 NA
142 NA
NA 124
137 NA
105 NA
NA 106
NA 125
104 NA
NA 130
NA 79
NA 108
NA 136
98 NA
120 NA
NA 108
NA 139
123 NA
90 NA
119 NA
105 NA
NA 110
135 NA
101 NA
NA 114
NA 118
NA 120
NA 108
114 NA
122 NA
132 NA
NA 130
NA 130
NA 112
114 NA
103 NA
115 NA
108 NA
NA 94
105 NA
 




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=218908&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 time2 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
TM & 81 & 103 & 113.5 & 122 & 142 \tabularnewline
TF & 79 & 105 & 117 & 128 & 159 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218908&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]81[/C][C]103[/C][C]113.5[/C][C]122[/C][C]142[/C][/ROW]
[ROW][C]TF[/C][C]79[/C][C]105[/C][C]117[/C][C]128[/C][C]159[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=218908&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
TM110.467522061254113.5116.532477938746
TF112.421590350282117121.578409649718

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
TM & 110.467522061254 & 113.5 & 116.532477938746 \tabularnewline
TF & 112.421590350282 & 117 & 121.578409649718 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=218908&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]110.467522061254[/C][C]113.5[/C][C]116.532477938746[/C][/ROW]
[ROW][C]TF[/C][C]112.421590350282[/C][C]117[/C][C]121.578409649718[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=218908&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=218908&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
TM110.467522061254113.5116.532477938746
TF112.421590350282117121.578409649718



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