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, 06 Dec 2014 14:03:09 +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/06/t1417874621g9gl3cym91bajnk.htm/, Retrieved Thu, 16 May 2024 12:14:12 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=263628, Retrieved Thu, 16 May 2024 12:14:12 +0000
QR Codes:

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

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]
- RMPD          [Notched Boxplots] [Boxplots totale m...] [2014-12-06 14:03:09] [4ce2356216df8db4950cd852fec912aa] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
26 57 50 62
51 67 68 71
37 43 54 54
52 52 73 65
58 43 73 52
68 84 75 84
62 67 72 42
56 49 70 66
74 70 81 65
58 52 71 78
51 43 61 66
53 56 76 61
29 65 70 71
54 63 60 69
54 57 70 72
47 63 76 68
68 53 67 70
67 57 76 68
41 64 75 67
45 51 63 77
56 58 70 72
41 43 75 69
53 51 60 71
66 53 73 62
37 56 64 64
51 61 59 58
51 39 64 52
56 48 60 59
37 50 78 68
42 35 67 76
66 30 66 65
34 49 68 59
49 61 66 69
55 47 73 63
49 56 72 75
40 50 59 63
63 43 78 60
56 67 68 73
54 62 73 63
32 57 65 70
67 54 71 66
66 48 76 63
51 61 63 64
55 43 59 61
50 44 73 62
60 58 66 61
56 46 62 66
63 66 69 56
52 45 57 66
59 59 63 53
52 38 65 59
44 53 47 71
60 59 68 71
59 58 71 64
55 60 59 66
55 52 68 62
41 34 48 65
51 69 59 68
52 48 60 60
50 58 59 65
60 57 79 68
29 42 59 64
55 64 71 74
64 58 57 69
40 26 66 68
46 61 63 72
43 52 58 67
51 61 48 66
52 52 73 51
66 16 61 56
61 46 68 67
51 56 62 69
25 55 62 56
46 50 69 55
50 60 58 67
39 67 58 76
58 52 72 64
58 55 62 68
60 37 65 64
62 54 69 65
63 72 66 71
64 51 66 63
38 48 55 60
48 50 72 72
48 63 62 70
47 33 64 61
66 67 64 61
58 46 68 62
44 54 70 71
43 61 69 51
45 33 73 56
60 47 74 70
55 69 78 73
56 52 75 76
43 73 50 52
51 51 65 57
58 56 78 60
64 56 78 60
51 66 70 62
47 66 63 59
59 73 63 61
51 58 67 69
64 61 66 59
52 50 62 66
56 54 73 67
71 80 69 75
50 56 84 69
47 56 58 58
43 56 57 60
63 53 68 74
51 47 69 55
22 47 60 63
59 51 66 68
66 35 81 62
53 53 72 72
54 46 74 62
53 67 65 75
36 59 51 58
76 50 80 47
59 47 74 19
55 63 70 50
58 51 69 79
44 55 55 71
57 38 71 48
57 56 69 66
58 50 63 74
14 54 39 66
53 57 68 71
49 49 68 53
62 37 67 60
30 59 70 70
56 46 66 69
48 53 59 59
55 48 62 72
35 62 75 71
41 62 73 74
45 67 73 80
47 50 61 73
53 54 63 67
53 58 78 61
41 63 65 74
55 31 77 32
55 65 69 69
46 57 68 64
59 54 76 60
39 47 67 59
44 57 69 78
60 41 59 60
57 63 73 68
46 56 78 73
53 50 68 67
54 41 68 65
45 56 67 74
60 42 55 55
47 52 73 49
50 44 66 53
66 62 75 64
60 50 77 57
53 66 75 67
34 62 57 70
58 47 66 75
52 60 60 65
49 45 64 65
63 58 74 69
44 51 59 48
52 30 69 68
60 46 63 74
53 51 73 67
53 56 55 65
52 44 77 74
31 42 70 69
49 44 66 63
61 46 77 68
62 50 78 70
53 54 72 78
56 55 50 74
63 59 72 62
62 54 71 69
66 66 80 65
45 55 64 67
58 51 69 52
53 42 75 53
68 63 79 76
58 43 60 63
58 65 53 41
69 67 69 72
46 52 68 52
64 52 73 65
54 69 64 63
61 46 79 56
69 40 76 56
64 70 66 64
59 77 57 75
51 41 58 65
65 51 74 61
47 69 62 71
58 60 66 72
51 45 66 62
41 39 65 66
64 51 66 63
50 51 77 71
55 51 65 64
59 65 67 78
77 51 84 60
60 58 58 68
64 54 75 68
46 52 72 60
54 72 75 65
56 50 72 64
65 65 75 69
56 50 72 74
56 52 72 76
58 59 75 73
42 52 66 76
69 45 73 55
51 70 70 62
64 71 64 78
NA 58 NA 67
NA 39 NA 75
NA 46 NA 59
NA 67 NA 70
NA 44 NA 59
NA 41 NA 63
NA 68 NA 67
NA 63 NA 58
NA 57 NA 71
NA 39 NA 53
NA 38 NA 64
NA 51 NA 67
NA 59 NA 72
NA 47 NA 57
NA 50 NA 62
NA 57 NA 74
NA 21 NA 54
NA 51 NA 66
NA 37 NA 64
NA 67 NA 74
NA 43 NA 71
NA 40 NA 63
NA 58 NA 70
NA 64 NA 66
NA 58 NA 78
NA 59 NA 72
NA 58 NA 72
NA 41 NA 58
NA 56 NA 84
NA 63 NA 67
NA 58 NA 63
NA 47 NA 55
NA 62 NA 58
NA 60 NA 69
NA 50 NA 54
NA 46 NA 58
NA 44 NA 67
NA 58 NA 77
NA 56 NA 80
NA 43 NA 67
NA 54 NA 71
NA 66 NA 79
NA 62 NA 76
NA 58 NA 72
NA 67 NA 81
NA 25 NA 52
NA 56 NA 76
NA 53 NA 60
NA 59 NA 77
NA 46 NA 64
NA 49 NA 67
NA 76 NA 79
NA 33 NA 40
NA 49 NA 71
NA 53 NA 73
NA 72 NA 70
NA 51 NA 66
NA 51 NA 74
NA 54 NA 58
NA 52 NA 51
NA 59 NA 75
NA 67 NA 50
NA 58 NA 77
NA 53 NA 71

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

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






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
TIF2947546077
TIM3047546077
TEF4863687384
TEM4760667184

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
TIF & 29 & 47 & 54 & 60 & 77 \tabularnewline
TIM & 30 & 47 & 54 & 60 & 77 \tabularnewline
TEF & 48 & 63 & 68 & 73 & 84 \tabularnewline
TEM & 47 & 60 & 66 & 71 & 84 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263628&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]TIF[/C][C]29[/C][C]47[/C][C]54[/C][C]60[/C][C]77[/C][/ROW]
[ROW][C]TIM[/C][C]30[/C][C]47[/C][C]54[/C][C]60[/C][C]77[/C][/ROW]
[ROW][C]TEF[/C][C]48[/C][C]63[/C][C]68[/C][C]73[/C][C]84[/C][/ROW]
[ROW][C]TEM[/C][C]47[/C][C]60[/C][C]66[/C][C]71[/C][C]84[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263628&T=1

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






Boxplot Notches
Variablelower boundmedianupper bound
TIF52.60565394479745455.3943460552026
TIM52.77468632819755455.2253136718025
TEF66.92742611138266869.0725738886174
TEM64.96319612385946667.0368038761406

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
TIF & 52.6056539447974 & 54 & 55.3943460552026 \tabularnewline
TIM & 52.7746863281975 & 54 & 55.2253136718025 \tabularnewline
TEF & 66.9274261113826 & 68 & 69.0725738886174 \tabularnewline
TEM & 64.9631961238594 & 66 & 67.0368038761406 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=263628&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]TIF[/C][C]52.6056539447974[/C][C]54[/C][C]55.3943460552026[/C][/ROW]
[ROW][C]TIM[/C][C]52.7746863281975[/C][C]54[/C][C]55.2253136718025[/C][/ROW]
[ROW][C]TEF[/C][C]66.9274261113826[/C][C]68[/C][C]69.0725738886174[/C][/ROW]
[ROW][C]TEM[/C][C]64.9631961238594[/C][C]66[/C][C]67.0368038761406[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=263628&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=263628&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
TIF52.60565394479745455.3943460552026
TIM52.77468632819755455.2253136718025
TEF66.92742611138266869.0725738886174
TEM64.96319612385946667.0368038761406


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = black ;
Parameters (R input):
par1 = black ;
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')