FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

Author's title

Author*Unverified author*
R Software Modulerwasp_notchedbox1.wasp
Title produced by softwareNotched Boxplots
Date of computationMon, 15 Dec 2008 03:04:04 -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/Dec/15/t1229335617xy1s0c6j8f3aiwz.htm/, Retrieved Wed, 15 May 2024 08:16:08 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=33642, Retrieved Wed, 15 May 2024 08:16:08 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact163

Tree of Dependent Computations

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]
F   PD  [Notched Boxplots] [Q1] [2008-11-03 18:51:12] [85841a4a203c2f9589565c024425a91b]
-   PD      [Notched Boxplots] [NBP] [2008-12-15 10:04:04] [c8d16ef416494cf54cdcc6487855358a] [Current]
Feedback Forum

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
2560	727
2491	817
2380	918
2291	786
2079	803
1929	756
1851	725
1607	523
1661	538
2259	587
1668	505
2011	521
1944	498
1958	550
1844	637
1868	622
1701	668
2338	669
2018	670
1302	499
2168	539
2139	593
1560	429
2093	622
1973	533
2090	655
2811	835
1984	686
1849	706
2433	869
2071	777
1855	739
1756	637
1898	597
1770	629
1969	940
1769	444
2139	496
3013	801
2061	659
2132	767
2973	876
2081	601
2257	697
2075	745
2084	655
1747	572
2092	628
1919	650
2551	677
2643	900
2153	780
2496	896
2645	1092
2035	823
2294	735
2205	770
2044	915
1762	645
1897	566
1821	707
1905	785
2111	762
1643	712
1956	714
1977	823
1685	609
1393	620
1574	619
1793	638
1562	483
1510	535
1675	617
1965	698
2173	804
2395	824
2197	878
2257	1019
2885	974
1594	773
1950	734
1772	827
1280	804
1724	721
1473	659
1461	732
1576	839
1900	994
1618	828
2303	1039
1994	1072
1575	803
1893	1035
1788	922
1817	834
3233	1739
727	359
1121	513
1665	699
1401	741
1415	793
2058	877
1544	750
1379	752
1402	675
1313	682
1296	583
1398	632
1288	606
1563	645
1972	980
1496	847
1481	941
1819	1066
1479	936
1635	880
1511	808
1547	741
1388	780
1958	675
1390	782
1597	795
1842	873
1396	727
1671	998
1385	768
1632	714
1313	782
1300	578
1431	664
1398	560
1198	516
1292	752
1434	597
1660	716
1837	691
1455	752
1315	718
1642	737
1069	621
1209	472
1586	719
1122	497
1063	536
1125	653
1414	605
1347	637
1403	743
1299	719
1547	653
1515	675
1247	590
1639	527
1296	534
1063	463
1282	542
1365	568
1268	501
1532	678
1455	774
1393	665
1515	742
1510	715
1225	638
1577	656
1417	606
1224	498
1693	587
1633	677
1639	547
1914	871
1586	731
1552	752
2081	862
1500	619
1437	700
1470	667
1849	667
1387	650
1592	547
1589	637
1798	655
1935	703
1887	886
2027	896
2080	831
1556	741
1682	833
1785	750
1869	779
1781	655
2082	739
2570	845
1862	795
1936	1021
1504	726
1765	1045
1607	915
1577	852
1493	772
1615	729
1700	755
1335	691
1523	729
1623	702
1540	702
1637	894
1524	765
1419	753
1821	876
1593	781
1357	776
1263	606
1750	775
1405	663
1393	649
1639	821
1679	771
1551	635
1744	1070
1429	693
1784	779

Tables (Output of Computation)





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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33642&T=0

As an alternative you can also use a QR Code:  
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 time0 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135






Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
X172714611666.519652645
X2429632718.58011045

\begin{tabular}{lllllllll}
\hline
Boxplot statistics \tabularnewline
Variable & lower whisker & lower hinge & median & upper hinge & upper whisker \tabularnewline
X1 & 727 & 1461 & 1666.5 & 1965 & 2645 \tabularnewline
X2 & 429 & 632 & 718.5 & 801 & 1045 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=33642&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]727[/C][C]1461[/C][C]1666.5[/C][C]1965[/C][C]2645[/C][/ROW]
[ROW][C]X2[/C][C]429[/C][C]632[/C][C]718.5[/C][C]801[/C][C]1045[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=33642&T=1

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33642&T=1

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot statistics
Variablelower whiskerlower hingemedianupper hingeupper whisker
X172714611666.519652645
X2429632718.58011045






Boxplot Notches
Variablelower boundmedianupper bound
X11613.054501011201666.51719.94549898880
X2700.578791013675718.5736.421208986325

\begin{tabular}{lllllllll}
\hline
Boxplot Notches \tabularnewline
Variable & lower bound & median & upper bound \tabularnewline
X1 & 1613.05450101120 & 1666.5 & 1719.94549898880 \tabularnewline
X2 & 700.578791013675 & 718.5 & 736.421208986325 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=33642&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]1613.05450101120[/C][C]1666.5[/C][C]1719.94549898880[/C][/ROW]
[ROW][C]X2[/C][C]700.578791013675[/C][C]718.5[/C][C]736.421208986325[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=33642&T=2

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=33642&T=2

As an alternative you can also use a QR Code:  
QR Code


The GUIDs for individual cells are displayed in the table below:

Boxplot Notches
Variablelower boundmedianupper bound
X11613.054501011201666.51719.94549898880
X2700.578791013675718.5736.421208986325


Figures (Output of Computation)

Input Parameters & R Code

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