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, 15 Dec 2014 22:52:22 +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/15/t1418683959qbgct6l5tmavscg.htm/, Retrieved Sun, 19 May 2024 15:55:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=269093, Retrieved Sun, 19 May 2024 15:55:48 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Notched Boxplots] [] [2014-12-15 22:52:22] [4621f922aed0297f88122271e88ec2ef] [Current]
- R  D    [Notched Boxplots] [] [2014-12-15 22:55:40] [5efa6717cfe6505454df834acc87b53b]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
40	49
58	41
75	38
49	44
59	37
59	41
72	48
51	34
61	39
53	48
41	32
57	40
50	41
50	45
61	54
83	45
51	41
60	42
61	43
59	48
61	41
63	43
67	46
72	49
77	51
52	36
56	43
46	40
34	32
64	37
52	36
69	49
58	43
53	35
56	47
57	41
61	44
57	48
33	33
54	38
66	57
33	32
60	42
58	45
43	41
49	42
93	59
69	45
43	45
63	36
34	27
57	48
42	39
64	49
60	47
47	42
44	41
56	43
46	41
57	44
79	50
37	36
65	42
38	35
58	46
59	52
49	34
25	36
63	49
59	44
49	43
50	30
52	43
56	42
59	48
48	45
39	41
30	44
46	44
38	38
51	49
51	35
70	37
50	41
41	40
74	55
50	36
59	40
48	39
77	38
51	45
46	32
45	41
53	36
51	41
47	36
57	40
71	52
65	44
50	34
67	38
42	47
64	43
59	42
61	42
37	40
55	47
51	49

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=269093&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=269093&T=0

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






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
Neg_perf3048566179
Pos_perf27384245.555

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Neg_perf & 30 & 48 & 56 & 61 & 79 \tabularnewline
Pos_perf & 27 & 38 & 42 & 45.5 & 55 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=269093&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]Neg_perf[/C][C]30[/C][C]48[/C][C]56[/C][C]61[/C][C]79[/C][/ROW]
[ROW][C]Pos_perf[/C][C]27[/C][C]38[/C][C]42[/C][C]45.5[/C][C]55[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=269093&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
Neg_perf54.02353757847425657.9764624215258
Pos_perf40.85973321835054243.1402667816495

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Neg_perf & 54.0235375784742 & 56 & 57.9764624215258 \tabularnewline
Pos_perf & 40.8597332183505 & 42 & 43.1402667816495 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=269093&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]Neg_perf[/C][C]54.0235375784742[/C][C]56[/C][C]57.9764624215258[/C][/ROW]
[ROW][C]Pos_perf[/C][C]40.8597332183505[/C][C]42[/C][C]43.1402667816495[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=269093&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=269093&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
Neg_perf54.02353757847425657.9764624215258
Pos_perf40.85973321835054243.1402667816495


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