Free Statistics

of Irreproducible Research!

Author's title

Author*The author of this computation has been verified*
R Software Modulerwasp_backtobackhist.wasp
Title produced by softwareBack to Back Histogram
Date of computationTue, 11 Dec 2012 12:55:23 -0500
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2012/Dec/11/t13552485399zdzxbrtmfvtqw2.htm/, Retrieved Fri, 26 Apr 2024 05:52:15 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=198598, Retrieved Fri, 26 Apr 2024 05:52:15 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact76
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Screen Width and ...] [2010-09-25 10:03:47] [b98453cac15ba1066b407e146608df68]
- RM D    [Back to Back Histogram] [Werkloosheid Vlaa...] [2012-12-11 17:55:23] [b650a28572edc4a1d205c228043a3295] [Current]
Feedback Forum

Post a new message
Dataseries X:
207.221
210.506
216.222
224.325
214.419
189.422
188.222
191.395
195.978
201.920
203.583
191.987
186.424
191.568
200.140
211.451
211.524
182.510
182.414
187.827
192.684
198.480
203.089
199.834
195.770
203.555
211.868
229.527
229.139
198.563
195.722
202.196
205.816
212.588
214.320
220.376
204.442
206.903
214.126
226.899
223.532
195.309
186.005
188.906
191.563
189.226
186.412
178.037
166.827
169.362
174.330
187.069
186.530
158.114
151.001
159.612
161.914
164.182
169.701
171.297
Dataseries Y:
247.182
251.362
257.784
264.661
258.558
235.162
235.042
238.575
242.254
249.192
250.333
242.470
244.894
248.197
254.511
261.678
253.299
231.770
233.271
237.520
242.082
243.287
246.526
245.622
247.447
252.470
262.976
267.145
260.951
239.171
238.454
245.385
252.487
257.375
261.240
252.222
250.627
255.159
263.948
268.145
263.281
242.967
241.326
248.985
247.599
247.323
246.546
243.985
241.478
242.936
251.178
254.016
249.999
229.521
228.793
239.709
239.494
251.846
253.376
248.284




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net

\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 & 'Gertrude Mary Cox' @ cox.wessa.net \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=198598&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]'Gertrude Mary Cox' @ cox.wessa.net[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=198598&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=198598&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 Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time1 seconds
R Server'Gertrude Mary Cox' @ cox.wessa.net



Parameters (Session):
par1 = grey ;
Parameters (R input):
par1 = grey ; par2 = white ; par3 = TRUE ; par4 = Vlaanderen ; par5 = Wallonie ;
R code (references can be found in the software module):
par5 <- 'Wallonie'
par4 <- 'Vlaanderen'
par3 <- 'TRUE'
par2 <- 'red'
par1 <- 'black'
if (par3 == 'TRUE') par3 <- TRUE
if (par3 == 'FALSE') par3 <- FALSE
library(Hmisc)
z <- data.frame(cbind(x,y))
names(z) <- list(par4,par5)
bitmap(file='plot.png')
out <- histbackback(z, probability=par3, main = main, ylab = ylab)
barplot(-out$left, col=par1, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
barplot(out$right, col=par2, horiz=TRUE, space=0, add=TRUE, axes=FALSE)
dev.off()