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

Sun, 02 Nov 2008 09:35:59 -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/2008/Nov/02/t1225643830n4j9pie9fqg6b7p.htm/, Retrieved Tue, 28 May 2024 07:21:39 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=20647, Retrieved Tue, 28 May 2024 07:21:39 +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

149

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

F     [Univariate Data Series] [blog 1e tijdreeks...] [2008-10-13 19:23:31] [7173087adebe3e3a714c80ea2417b3eb]
-   PD  [Univariate Data Series] [tijdreeksen opnie...] [2008-10-19 17:27:22] [7173087adebe3e3a714c80ea2417b3eb]
-   PD    [Univariate Data Series] [tijdreeksen opnie...] [2008-10-19 19:20:45] [7173087adebe3e3a714c80ea2417b3eb]
- RMPD        [Notched Boxplots] [notched boxplot ] [2008-11-02 16:35:59] [95d95b0e883740fcbc85e18ec42dcafb] [Current]

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

5014	2400	3180	1712
6153	4700	4151	2641
6441	3700	4023	2267
5584	2900	3431	2126
6427	2800	3874	2231
6062	3000	2617	1517
5589	3100	3580	2010
6216	3700	5267	2628
5809	3000	3832	2115
4989	2000	3441	1829
6706	1900	3228	1636
7174	1900	3397	1787
6122	1800	3971	2122
8075	3400	4625	2620
6292	3800	4486	2555
6337	2800	4131	2337
8576	3100	4686	2524
6077	2100	3174	1801
5931	2000	4282	2417
6288	2500	4209	2389
7167	2400	4159	2267
6054	2500	3936	2135
6468	3300	3153	1760
6401	3100	3620	1905
6927	3700	4227	2176
7914	5600	4441	2344
7728	3700	4808	2673
8699	2900	4850	2766
8522	4000	5040	2785
6481	2900	3546	2003
7502	2400	4669	2588
7778	3300	5410	2739
7424	3800	5134	2703
6941	4400	4864	2464
8574	4000	3999	1974
9169	3100	4459	2164
7701	2700	4622	2385
9035	5200	5360	2936
7158	4600	4658	2700
8195	3700	5173	2855
8124	3200	4845	2764
7073	2400	3325	1808
7017	2200	4720	2588
7390	3200	4895	2600
7776	3100	5071	2526
6197	2300	4895	2259
6889	2500	3805	1738
7087	2900	4187	1902
6485	2700	4435	2137
7654	5000	4475	2460
6501	3500	4774	2495
6313	3000	5161	2525
7826	3800	4529	2465
6589	2800	3284	1828
6729	2400	4303	2273
5684	2700	4610	2377
8105	2800	4691	2344
6391	2700	4200	2071
5901	2600	3471	1611
6758	3100	3132	1671

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=20647&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
bouwvergunningen	4989	6252	6743.5	7714.5	9169
hyp.krediet	1800	2500	3000	3700	5200
woningen	2617	3712.5	4292.5	4747	5410
gebouwen	1517	1988.5	2305	2571.5	2936

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
bouwvergunningen & 4989 & 6252 & 6743.5 & 7714.5 & 9169 \tabularnewline
hyp.krediet & 1800 & 2500 & 3000 & 3700 & 5200 \tabularnewline
woningen & 2617 & 3712.5 & 4292.5 & 4747 & 5410 \tabularnewline
gebouwen & 1517 & 1988.5 & 2305 & 2571.5 & 2936 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=20647&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]bouwvergunningen[/C][C]4989[/C][C]6252[/C][C]6743.5[/C][C]7714.5[/C][C]9169[/C][/ROW]
[ROW][C]hyp.krediet[/C][C]1800[/C][C]2500[/C][C]3000[/C][C]3700[/C][C]5200[/C][/ROW]
[ROW][C]woningen[/C][C]2617[/C][C]3712.5[/C][C]4292.5[/C][C]4747[/C][C]5410[/C][/ROW]
[ROW][C]gebouwen[/C][C]1517[/C][C]1988.5[/C][C]2305[/C][C]2571.5[/C][C]2936[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=20647&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=20647&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
bouwvergunningen	4989	6252	6743.5	7714.5	9169
hyp.krediet	1800	2500	3000	3700	5200
woningen	2617	3712.5	4292.5	4747	5410
gebouwen	1517	1988.5	2305	2571.5	2936

Boxplot Notches
Variable	lower bound	median	upper bound
bouwvergunningen	6445.18345775837	6743.5	7041.81654224163
hyp.krediet	2755.22745251969	3000	3244.77254748031
woningen	4081.48566635968	4292.5	4503.51433364032
gebouwen	2186.08133734915	2305	2423.91866265085

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
bouwvergunningen & 6445.18345775837 & 6743.5 & 7041.81654224163 \tabularnewline
hyp.krediet & 2755.22745251969 & 3000 & 3244.77254748031 \tabularnewline
woningen & 4081.48566635968 & 4292.5 & 4503.51433364032 \tabularnewline
gebouwen & 2186.08133734915 & 2305 & 2423.91866265085 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=20647&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]bouwvergunningen[/C][C]6445.18345775837[/C][C]6743.5[/C][C]7041.81654224163[/C][/ROW]
[ROW][C]hyp.krediet[/C][C]2755.22745251969[/C][C]3000[/C][C]3244.77254748031[/C][/ROW]
[ROW][C]woningen[/C][C]4081.48566635968[/C][C]4292.5[/C][C]4503.51433364032[/C][/ROW]
[ROW][C]gebouwen[/C][C]2186.08133734915[/C][C]2305[/C][C]2423.91866265085[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=20647&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=20647&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
bouwvergunningen	6445.18345775837	6743.5	7041.81654224163
hyp.krediet	2755.22745251969	3000	3244.77254748031
woningen	4081.48566635968	4292.5	4503.51433364032
gebouwen	2186.08133734915	2305	2423.91866265085

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