Repository of Reproducible Computations

Free Statistics

of Irreproducible Research!

Author's title

Author

*Unverified author*

R Software Module

rwasp_notchedbox1.wasp

Title produced by software

Notched Boxplots

Date of computation

Thu, 12 Aug 2010 10:35:05 +0000

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/2010/Aug/12/t1281609260jupfreobsem9c8c.htm/, Retrieved Sat, 04 May 2024 09:08:44 +0000

Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=78670, Retrieved Sat, 04 May 2024 09:08:44 +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

151

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

-     [Harrell-Davis Quantiles] [] [2010-08-12 09:55:01] [0054c34847e75ef4340aed26951eb951]
- RMP   [Central Tendency] [] [2010-08-12 10:10:20] [0054c34847e75ef4340aed26951eb951]
- RMPD    [Histogram] [] [2010-08-12 10:26:14] [2ee36997fb1be82ef07372b18c1a823d]
- RMP       [Kernel Density Estimation] [] [2010-08-12 10:31:03] [0054c34847e75ef4340aed26951eb951]
- RM D          [Notched Boxplots] [] [2010-08-12 10:35:05] [ea4db07d8da34007b79212461ea6aa7b] [Current]
- RM D            [Harrell-Davis Quantiles] [] [2010-08-12 10:41:18] [0054c34847e75ef4340aed26951eb951] 

Feedback Forum

Post a new message

Dataseries X:

Download CSV

Histogram

Boxplots

158	158	158
157	157	157
156	156	156
154	154	154
152	152	152
151	151	151
152	152	152
154	154	154
155	155	155
155	155	155
156	156	156
158	158	158
155	155	155
151	151	151
152	152	152
156	156	156
147	147	147
159	159	159
152	152	152
148	148	148
146	146	146
148	148	148
142	142	142
141	141	141
139	139	139
143	143	143
146	146	146
150	150	150
141	141	141
153	153	153
142	142	142
139	139	139
134	134	134
152	152	152
142	142	142
139	139	139
137	137	137
132	132	132
137	137	137
134	134	134
127	127	127
140	140	140
127	127	127
120	120	120
112	112	112
128	128	128
119	119	119
117	117	117
115	115	115
104	104	104
108	108	108
104	104	104
98	98	98
111	111	111
104	104	104
98	98	98
91	91	91
94	94	94
82	82	82
81	81	81
70	70	70
64	64	64
71	71	71
73	73	73
71	71	71
80	80	80
72	72	72
68	68	68
60	60	60
71	71	71
62	62	62
69	69	69
55	55	55
58	58	58
67	67	67
69	69	69
71	71	71
85	85	85
76	76	76
79	79	79
69	69	69
95	95	95
94	94	94
99	99	99

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	'RServer@AstonUniversity' @ vre.aston.ac.uk
R Engine error message	Error in dimnames(data) <- dimnames : length of 'dimnames' [1] not equal to array extent Calls: array Execution halted

\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 & 'RServer@AstonUniversity' @ vre.aston.ac.uk \tabularnewline
R Engine error message & Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted
 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=78670&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]'RServer@AstonUniversity' @ vre.aston.ac.uk[/C][/ROW]
[ROW][C]R Engine error message[/C][C]Error in dimnames(data) <- dimnames : 
  length of 'dimnames' [1] not equal to array extent
Calls: array
Execution halted
[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=78670&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=78670&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	'RServer@AstonUniversity' @ vre.aston.ac.uk
R Engine error message	Error in dimnames(data) <- dimnames : length of 'dimnames' [1] not equal to array extent Calls: array Execution halted

Parameters (Session):

par1 = 0 ;

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