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

Fri, 13 Nov 2009 08:28:13 -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/Nov/13/t1258126129xvlubxwnv3d183w.htm/, Retrieved Sun, 05 May 2024 09:41:16 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56816, Retrieved Sun, 05 May 2024 09:41:16 +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

Estimated Impact

180

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

-       [Notched Boxplots] [] [2009-11-13 15:28:13] [c88a5f1b97e332c6387d668c465455af] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

1258	476049	280	47
1199	474605	557	55
1158	470439	831	55
1427	461251	1081	51
934	454724	1318	55
709	455626	1578	58
1186	516847	1859	49
986	525192	2141	52
1033	522975	2428	52
1257	518585	2715	57
1105	509239	3004	61
1179	512238	3309	61
1092	519164	269	32
1092	517009	537	43
1087	509933	813	54
2028	509127	1068	81
2039	500857	1411	72
2010	506971	1675	69
754	569323	1958	30
760	579714	2242	53
715	577992	2524	57
855	565464	2836	64
971	547344	3143	71
815	554788	3522	65
915	562325	285	59
843	560854	574	68
761	555332	865	70
1858	543599	1147	75
2968	536662	1516	74
4061	542722	1789	68
3661	593530	2087	62
3269	610763	2372	56
2857	612613	2669	55
2568	611324	2966	74
2274	594167	3270	58
1987	595454	3652	72
683	590865	329	63
381	589379	658	68
71	584428	988	55
1772	573100	1303	71
3485	567456	1603	79
5181	569028	1929	74
4479	620735	2235	75
3782	628884	2544	69
3067	628232	2872	63
2489	612117	3198	88
1903	595404	3544	68
1330	597141	3903	89
736	593408	332	63
483	590072	665	74
242	579799	1001	63
1334	574205	1329	79
2423	572775	1639	80
3523	572942	1975	77
2986	619567	2304	96
2462	625809	2640	88
1908	619916	2992	56
1575	587625	3330	74
1237	565742	3690	82
904	557274	4063	69

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56816&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
blg.	71	909.5	1257.5	2442.5	4479
werkl.	454724	518874.5	568242	593469	628884
ink.	269	1034.5	1943.5	2854	4063
verz.	30	55.5	64.5	74	96

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
blg. & 71 & 909.5 & 1257.5 & 2442.5 & 4479 \tabularnewline
werkl. & 454724 & 518874.5 & 568242 & 593469 & 628884 \tabularnewline
ink. & 269 & 1034.5 & 1943.5 & 2854 & 4063 \tabularnewline
verz. & 30 & 55.5 & 64.5 & 74 & 96 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56816&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]blg.[/C][C]71[/C][C]909.5[/C][C]1257.5[/C][C]2442.5[/C][C]4479[/C][/ROW]
[ROW][C]werkl.[/C][C]454724[/C][C]518874.5[/C][C]568242[/C][C]593469[/C][C]628884[/C][/ROW]
[ROW][C]ink.[/C][C]269[/C][C]1034.5[/C][C]1943.5[/C][C]2854[/C][C]4063[/C][/ROW]
[ROW][C]verz.[/C][C]30[/C][C]55.5[/C][C]64.5[/C][C]74[/C][C]96[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56816&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56816&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
blg.	71	909.5	1257.5	2442.5	4479
werkl.	454724	518874.5	568242	593469	628884
ink.	269	1034.5	1943.5	2854	4063
verz.	30	55.5	64.5	74	96

Boxplot Notches
Variable	lower bound	median	upper bound
blg.	944.803070593906	1257.5	1570.19692940609
werkl.	553026.428505817	568242	583457.571494183
ink.	1572.36362488298	1943.5	2314.63637511702
verz.	60.7264232263452	64.5	68.2735767736548

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
blg. & 944.803070593906 & 1257.5 & 1570.19692940609 \tabularnewline
werkl. & 553026.428505817 & 568242 & 583457.571494183 \tabularnewline
ink. & 1572.36362488298 & 1943.5 & 2314.63637511702 \tabularnewline
verz. & 60.7264232263452 & 64.5 & 68.2735767736548 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=56816&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]blg.[/C][C]944.803070593906[/C][C]1257.5[/C][C]1570.19692940609[/C][/ROW]
[ROW][C]werkl.[/C][C]553026.428505817[/C][C]568242[/C][C]583457.571494183[/C][/ROW]
[ROW][C]ink.[/C][C]1572.36362488298[/C][C]1943.5[/C][C]2314.63637511702[/C][/ROW]
[ROW][C]verz.[/C][C]60.7264232263452[/C][C]64.5[/C][C]68.2735767736548[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=56816&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56816&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
blg.	944.803070593906	1257.5	1570.19692940609
werkl.	553026.428505817	568242	583457.571494183
ink.	1572.36362488298	1943.5	2314.63637511702
verz.	60.7264232263452	64.5	68.2735767736548

Figure 1

PNG link

Postscript link

PDF link

Parameters (Session):

par1 = 12 ;

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