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, 10 Dec 2014 16:06:49 +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/10/t1418227614hm32nq939fdjn1k.htm/, Retrieved Tue, 28 May 2024 17:35:03 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=265458, Retrieved Tue, 28 May 2024 17:35:03 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact55
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-12-10 15:23:49] [fa1b8827d7de91b8b87087311d3d9fa1]
- R     [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-12-10 15:42:52] [fa1b8827d7de91b8b87087311d3d9fa1]
- R  D    [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-12-10 15:48:36] [fa1b8827d7de91b8b87087311d3d9fa1]
-    D      [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-12-10 16:01:36] [fa1b8827d7de91b8b87087311d3d9fa1]
- RMP           [Notched Boxplots] [] [2014-12-10 16:06:49] [c4557137b9b718365486b3b7af9cd43b] [Current]
Feedback Forum

Post a new message
Dataseries X:
26	11
57	6
37	7
67	10
43	9
52	7
52	4
43	4
84	4
67	8
49	4
70	7
52	4
58	4
68	9
43	4
56	10
74	4
65	5
63	4
58	4
57	4
63	4
53	6
64	10
53	7
29	4
54	4
58	7
43	4
51	8
53	11
54	6
61	14
47	5
39	4
48	8
50	9
35	4
68	4
49	5
67	4
43	5
62	4
57	4
54	7
61	10
56	4
41	5
43	4
53	4
66	4
58	4
46	17
51	4
51	23
37	4
42	5
66	5
53	4
52	6
16	4
46	9
56	18
50	6
59	5
60	4
52	11
44	4
67	10
52	6
55	6
37	4
54	9
51	5
48	4
60	15
50	10
63	9
33	7
67	9
46	6
54	4
59	7
61	4
47	7
69	4
52	15
55	9
41	4
73	4
52	4
50	4
51	4
60	12
56	4
56	6
29	6
73	4
55	7
43	7
61	4
56	12
56	17
47	5
25	4
46	8
51	5
48	4
47	4
58	16
51	7
55	4
57	7
60	19
56	4
49	4
59	9
58	5
53	14
48	4
51	16
59	10
62	5
51	6
64	4
52	4
50	4
54	5
58	4
63	4
31	5
71	4
43	4
41	8
63	15
63	
56	
51	
41	
66	
44	




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=265458&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'Gwilym Jenkins' @ jenkins.wessa.net







\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Schakel & 31 & 48 & 53 & 60 & 74 \tabularnewline
Bachelor & 4 & 4 & 5 & 9 & 16 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265458&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]Schakel[/C][C]31[/C][C]48[/C][C]53[/C][C]60[/C][C]74[/C][/ROW]
[ROW][C]Bachelor[/C][C]4[/C][C]4[/C][C]5[/C][C]9[/C][C]16[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265458&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
Schakel51.40891214466955354.5910878553305
Bachelor4.3370467269456255.66295327305438

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Schakel & 51.4089121446695 & 53 & 54.5910878553305 \tabularnewline
Bachelor & 4.33704672694562 & 5 & 5.66295327305438 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=265458&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]Schakel[/C][C]51.4089121446695[/C][C]53[/C][C]54.5910878553305[/C][/ROW]
[ROW][C]Bachelor[/C][C]4.33704672694562[/C][C]5[/C][C]5.66295327305438[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=265458&T=2

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



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