Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*The author of this computation has been verified*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Tue, 29 Dec 2009 03:29:49 -0700

Cite this page as follows

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2009/Dec/29/t12620826343r5k7cb42k9tqmg.htm/, Retrieved Fri, 03 May 2024 04:50:33 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=71084, Retrieved Fri, 03 May 2024 04:50:33 +0000

QR Codes:

Paste this QR Code to cite your computation.

Original text written by user:

IsPrivate?

No (this computation is public)

User-defined keywords

Paper

Estimated Impact

172

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)

-     [Notched Boxplots] [3/11/2009] [2009-11-02 21:10:41] [b98453cac15ba1066b407e146608df68]
-    D  [Notched Boxplots] [WS6_Boxplot] [2009-11-06 09:24:53] [8b1aef4e7013bd33fbc2a5833375c5f5]
- R  D      [Notched Boxplots] [Notched_box_plots] [2009-12-29 10:29:49] [5b5bced41faf164488f2c271c918b21f] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1178	2529	496,1	314
2141	2196	495,4	318
2238	3202	495,9	320
2685	2718	499,1	323
4341	2728	500,9	325
5376	2354	502,4	327
4478	2697	502,4	330
6404	2651	501,8	331
4617	2067	504,3	332
3024	2641	504	334
1897	2539	504,1	334
2075	2294	503	334
1351	2712	502,4	339
2211	2314	502,8	345
2453	3092	501,6	346
3042	2677	500,6	352
4765	2813	499	355
4992	2668	499,2	358
4601	2939	499,8	361
6266	2617	500,2	363
4812	2231	501	364
3159	2481	500	365
1916	2421	499,8	366
2237	2408	501	370
1595	2560	500,4	371
2453	2100	501	371
2226	3315	501,7	372
3597	2801	503,1	373
4706	2403	503,3	373
4974	3024	503,1	374
5756	2507	503,5	375
5493	2980	506	375
5004	2211	505,7	376
3225	2471	504,7	376
2006	2594	504,2	377
2291	2452	503,6	377
1588	2232	504,4	378
2105	2373	502,5	379
2191	3127	499,4	380
3591	2802	498,1	384
4668	2641	498,1	389
4885	2787	500,7	390
5822	2619	499,1	391
5599	2806	498,3	392
5340	2193	496,9	393
3082	2323	497,9	394
2010	2529	500,2	394
2301	2412	501,2	395
1514	2262	503,8	396
1979	2154	504	397
2480	3230	506,6	398
3499	2295	505,3	399
4676	2715	507,6	400
5585	2733	504,7	400
5610	2317	506,6	401
5796	2730	504,4	401
6199	1913	504,6	406
3030	2390	506	407
1930	2484	504,8	423
2552	1960	504	427

Summary of computational transaction
Raw Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 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=71084&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=71084&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=71084&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 Input	view raw input (R code)
Raw Output	view raw output of R engine
Computing time	1 seconds
R Server	'Gwilym Jenkins' @ 72.249.127.135

Boxplot statistics
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Huw	1178	2201	3120.5	4929.5	6404
Echt	1913	2320	2534	2729	3315
Econo	495.4	499.9	502.4	504.15	507.6
Werkloos	314	349	374.5	393.5	427

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
Huw & 1178 & 2201 & 3120.5 & 4929.5 & 6404 \tabularnewline
Echt & 1913 & 2320 & 2534 & 2729 & 3315 \tabularnewline
Econo & 495.4 & 499.9 & 502.4 & 504.15 & 507.6 \tabularnewline
Werkloos & 314 & 349 & 374.5 & 393.5 & 427 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=71084&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]Huw[/C][C]1178[/C][C]2201[/C][C]3120.5[/C][C]4929.5[/C][C]6404[/C][/ROW]
[ROW][C]Echt[/C][C]1913[/C][C]2320[/C][C]2534[/C][C]2729[/C][C]3315[/C][/ROW]
[ROW][C]Econo[/C][C]495.4[/C][C]499.9[/C][C]502.4[/C][C]504.15[/C][C]507.6[/C][/ROW]
[ROW][C]Werkloos[/C][C]314[/C][C]349[/C][C]374.5[/C][C]393.5[/C][C]427[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=71084&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=71084&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
Variable	lower whisker	lower hinge	median	upper hinge	upper whisker
Huw	1178	2201	3120.5	4929.5	6404
Echt	1913	2320	2534	2729	3315
Econo	495.4	499.9	502.4	504.15	507.6
Werkloos	314	349	374.5	393.5	427

Boxplot Notches
Variable	lower bound	median	upper bound
Huw	2563.94842016665	3120.5	3677.05157983335
Echt	2450.57335673379	2534	2617.42664326621
Econo	501.533097227674	502.4	503.266902772326
Werkloos	365.423018030939	374.5	383.576981969061

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
Huw & 2563.94842016665 & 3120.5 & 3677.05157983335 \tabularnewline
Echt & 2450.57335673379 & 2534 & 2617.42664326621 \tabularnewline
Econo & 501.533097227674 & 502.4 & 503.266902772326 \tabularnewline
Werkloos & 365.423018030939 & 374.5 & 383.576981969061 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=71084&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]Huw[/C][C]2563.94842016665[/C][C]3120.5[/C][C]3677.05157983335[/C][/ROW]
[ROW][C]Echt[/C][C]2450.57335673379[/C][C]2534[/C][C]2617.42664326621[/C][/ROW]
[ROW][C]Econo[/C][C]501.533097227674[/C][C]502.4[/C][C]503.266902772326[/C][/ROW]
[ROW][C]Werkloos[/C][C]365.423018030939[/C][C]374.5[/C][C]383.576981969061[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=71084&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=71084&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
Variable	lower bound	median	upper bound
Huw	2563.94842016665	3120.5	3677.05157983335
Echt	2450.57335673379	2534	2617.42664326621
Econo	501.533097227674	502.4	503.266902772326
Werkloos	365.423018030939	374.5	383.576981969061

Figure 1

PNG link

Postscript link

PDF link

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

Free Statistics

Description of Statistical Computation

Tree of Dependent Computations

Dataset

Tables (Output of Computation)

Figures (Output of Computation)

Input Parameters & R Code