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 computationWed, 23 Oct 2013 16:03: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/t1382558727u8zzad427szu0hg.htm/, Retrieved Sun, 28 Apr 2024 13:57:49 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=219180, Retrieved Sun, 28 Apr 2024 13:57:49 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [WS3.4 - I] [2013-10-23 15:55:35] [31634b7e94db88df109226f71dc63e83]
- RM D  [Random Number Generator - Log-Normal Distribution] [WS3.7a] [2013-10-23 16:35:05] [31634b7e94db88df109226f71dc63e83]
- R       [Random Number Generator - Log-Normal Distribution] [WS3.7b] [2013-10-23 16:36:30] [31634b7e94db88df109226f71dc63e83]
-           [Random Number Generator - Log-Normal Distribution] [WS3.7c] [2013-10-23 16:38:07] [31634b7e94db88df109226f71dc63e83]
- RM D        [Bootstrap Plot - Central Tendency] [WS3.7f] [2013-10-23 16:46:03] [31634b7e94db88df109226f71dc63e83]
- R             [Bootstrap Plot - Central Tendency] [WS3.7g] [2013-10-23 16:48:55] [31634b7e94db88df109226f71dc63e83]
-                 [Bootstrap Plot - Central Tendency] [WS3.7h] [2013-10-23 16:50:49] [31634b7e94db88df109226f71dc63e83]
-                   [Bootstrap Plot - Central Tendency] [WS3.7i] [2013-10-23 16:52:46] [31634b7e94db88df109226f71dc63e83]
- RM D                  [Notched Boxplots] [WS3.5] [2013-10-23 20:03:48] [38144ba7d4215ff1336c69b1a02252e0] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
150	NA
124	NA
92	NA
117	NA
151	NA
117	NA
146	NA
119	NA
144	NA
96	NA
117	NA
145	NA
133	NA
99	NA
139	NA
120	NA
NA	135
NA	120
NA	130
NA	138
NA	77
NA	125
NA	127
NA	117
NA	167
NA	137
NA	127
NA	128
NA	129
NA	118
NA	107
NA	122
NA	113
NA	118
NA	113
NA	102
NA	128
NA	108
NA	105
NA	123
NA	111
NA	108
NA	138
NA	110
NA	122
NA	109
NA	128
NA	140
NA	122
NA	135
NA	118
NA	131
NA	113
NA	159
NA	157
NA	94
NA	131
NA	131
NA	105
NA	109
NA	134
NA	90
NA	140
NA	128
NA	134
NA	150
NA	126
NA	108
NA	138
NA	152
NA	158
NA	133
NA	124
NA	125
NA	152
NA	140
NA	115
NA	130
NA	131
NA	125
NA	115
NA	153
NA	121
NA	141
NA	123
NA	121
NA	135
NA	129
NA	105
NA	148
NA	101
NA	129
NA	118
NA	134
NA	117
NA	114
NA	144
NA	116
NA	114
NA	147
NA	102
NA	115
NA	130
NA	130
NA	126
NA	138
NA	102
NA	113
NA	116
NA	122
NA	120
NA	148
NA	131
NA	120
NA	126
NA	130
NA	122
NA	108
NA	131
NA	123
NA	129
NA	140
NA	128
NA	107
NA	131
NA	133
NA	141
NA	114
NA	96
NA	126
NA	118
NA	142
NA	117
NA	118
NA	131
NA	132
NA	127
NA	136
NA	141
NA	112
NA	109
NA	139
NA	89
NA	135
NA	127
NA	131
NA	129
NA	116
NA	133
NA	129
NA	134
NA	126
NA	112
NA	108
NA	118
NA	142
NA	133
NA	118
NA	134
NA	138
NA	126
NA	127

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=219180&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ fisher.wessa.net






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Mac92117122144.5151
Windows89116126.5134159

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Mac & 92 & 117 & 122 & 144.5 & 151 \tabularnewline
Windows & 89 & 116 & 126.5 & 134 & 159 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=219180&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]Mac[/C][C]92[/C][C]117[/C][C]122[/C][C]144.5[/C][C]151[/C][/ROW]
[ROW][C]Windows[/C][C]89[/C][C]116[/C][C]126.5[/C][C]134[/C][C]159[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=219180&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=219180&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
Mac92117122144.5151
Windows89116126.5134159






Boxplot Notches
Variablelower boundmedianupper bound
Mac111.1375122132.8625
Windows124.146288852815126.5128.853711147185

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Mac & 111.1375 & 122 & 132.8625 \tabularnewline
Windows & 124.146288852815 & 126.5 & 128.853711147185 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=219180&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]Mac[/C][C]111.1375[/C][C]122[/C][C]132.8625[/C][/ROW]
[ROW][C]Windows[/C][C]124.146288852815[/C][C]126.5[/C][C]128.853711147185[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=219180&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=219180&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
Mac111.1375122132.8625
Windows124.146288852815126.5128.853711147185


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):
par1 <- 'grey'
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')