Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationMon, 03 Nov 2008 13:48:16 -0700
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Nov/03/t1225745355lwydy3awyi0hzf5.htm/, Retrieved Sun, 19 May 2024 08:50:19 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=21236, Retrieved Sun, 19 May 2024 08:50:19 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact150
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Notched Boxplots] [workshop 3] [2007-10-26 13:31:48] [e9ffc5de6f8a7be62f22b142b5b6b1a8]
-    D    [Notched Boxplots] [Boxplot eigen ree...] [2008-11-03 20:48:16] [fb0ffb935e9c1a725d69519be28b148f] [Current]
Feedback Forum

Post a new message
Dataseries X:
3353	2341
3480	2540
3098	2371
2944	2122
3389	2301
3497	2512
4404	3145
3849	2741
3734	2548
3060	1987
3507	2281
3287	2016
3215	2434
3764	2637
2734	1831
2837	1851
2766	1839
3851	2609
3289	2417
3848	2394
3348	2372
3682	2717
4058	2998
3655	2538
3811	3007
3341	2475
3032	2175
3475	2465
3353	2279
3186	2323
3902	2746
4164	2601
3499	2486
4145	2718
3796	2646
3711	2551
3949	2712
3740	2606
3243	2365
4407	3533
4814	3509
3908	2912
5250	3599
3937	2719
4004	2869
5560	4085
3922	2686
3759	2545
4138	3071
4634	3388
3996	2652
4308	3190
4142	2884
4429	3295
5219	3818
4929	3226
5754	3953
5592	3810
4163	2877
4962	3515
5208	3708
4755	3450
4491	3360
5732	4110
5730	4384
5024	3729
6056	4263
4901	3505
5353	3674
5578	3911
4618	2951
4724	3317
5011	3417
5298	3498
4143	2768
4617	2899
4727	3171
4207	3004
5112	3481
4190	3016
4098	2595
5071	3509
4177	2833
4598	3125
3757	2556
5591	3628
4218	2876
3780	2575
4336	2903
4870	3438
4422	2926
4727	3068
4459	3015




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\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' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=21236&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' @ 72.249.127.135[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=21236&T=0

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







Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
X127343682414247276056
X218312540287633884384

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
X1 & 2734 & 3682 & 4142 & 4727 & 6056 \tabularnewline
X2 & 1831 & 2540 & 2876 & 3388 & 4384 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=21236&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]X1[/C][C]2734[/C][C]3682[/C][C]4142[/C][C]4727[/C][C]6056[/C][/ROW]
[ROW][C]X2[/C][C]1831[/C][C]2540[/C][C]2876[/C][C]3388[/C][C]4384[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=21236&T=1

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







Boxplot Notches
Variablelower boundmedianupper bound
X13970.7889056830641424313.21109431694
X22737.0650641332428763014.93493586676

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
X1 & 3970.78890568306 & 4142 & 4313.21109431694 \tabularnewline
X2 & 2737.06506413324 & 2876 & 3014.93493586676 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=21236&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]X1[/C][C]3970.78890568306[/C][C]4142[/C][C]4313.21109431694[/C][/ROW]
[ROW][C]X2[/C][C]2737.06506413324[/C][C]2876[/C][C]3014.93493586676[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=21236&T=2

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



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