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 computationSun, 26 Dec 2010 08:55:54 +0000
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2010/Dec/26/t1293353928dki0e67eoj1o135.htm/, Retrieved Mon, 06 May 2024 21:41:26 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=115484, Retrieved Mon, 06 May 2024 21:41:26 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsBack to back histogram
Estimated Impact160
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Box-Cox Linearity Plot] [3/11/2009] [2009-11-02 21:47:57] [b98453cac15ba1066b407e146608df68]
- RMPD  [Back to Back Histogram] [] [2009-11-10 17:14:24] [b7349fb284cae6f1172638396d27b11f]
-   PD      [Back to Back Histogram] [Paper] [2010-12-26 08:55:54] [e247a0a17f1c9a5b89239760575ef468] [Current]
Feedback Forum

Post a new message
Dataseries X:
279998
287224
296369
300653
302686
277891
277537
285383
292213
298522
300431
297584
286445
288576
293299
295881
292710
271993
267430
273963
273046
268347
264319
255765
246263
245098
246969
248333
247934
226839
225554
237085
237080
245039
248541
247105
243422
250643
254663
260993
258556
235372
246057
253353
255198
264176
269034
265861
269826
278506
292300
290726
289802
271311
274352
275216
276836
280408
280190
282656
281477
Dataseries Y:
268606
276444
289742
303725
298305
266795
259497
266148
271037
276239
279681
277509
271115
275902
287224
300713
293860
264221
256167
262572
263276
264291
263903
260376
255603
261076
270976
285257
280445
250741
243803
253158
255542
262522
268381
267153
266424
276427
286994
303598
296806
263290
264981
272566
276475
284678
291542
291413
295916
309119
327616
335083
329765
301631
298423
298989
302963
309664
313218
314485
313927




Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24

\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 & 2 seconds \tabularnewline
R Server & 'Sir Ronald Aylmer Fisher' @ 193.190.124.24 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=115484&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]2 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Sir Ronald Aylmer Fisher' @ 193.190.124.24[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=115484&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=115484&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 time2 seconds
R Server'Sir Ronald Aylmer Fisher' @ 193.190.124.24



Parameters (Session):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Mannen ; par5 = Vrouwen ;
Parameters (R input):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Mannen ; par5 = Vrouwen ;
R code (references can be found in the software module):
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()