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 computationWed, 03 Dec 2014 13:16:17 +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/2014/Dec/03/t14176125862qpwp8kzk0q68gx.htm/, Retrieved Thu, 16 May 2024 15:19:23 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=262944, Retrieved Thu, 16 May 2024 15:19:23 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact113
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Notched Boxplots] [Academic Motivati...] [2010-10-12 12:51:42] [b98453cac15ba1066b407e146608df68]
- RMPD  [Notched Boxplots] [boxplot] [2014-12-02 12:25:06] [15866c21ed6246d5efde5ff3ba421193]
-   PD    [Notched Boxplots] [boxplot 3] [2014-12-02 12:41:06] [15866c21ed6246d5efde5ff3ba421193]
-    D      [Notched Boxplots] [nb] [2014-12-02 13:10:20] [15866c21ed6246d5efde5ff3ba421193]
-    D        [Notched Boxplots] [MANNEN] [2014-12-02 14:03:35] [15866c21ed6246d5efde5ff3ba421193]
- RMPD            [Back to Back Histogram] [bbb] [2014-12-03 13:16:17] [69667246dd207ce9acb00bd9a43352d5] [Current]
Feedback Forum

Post a new message
Dataseries X:
27	24	6	25	26	18
22	21	15	22	20	21
6	4	4	10	14	15
22	27	4	24	28	16
10	14	6	24	22	24
20	16	12	21	16	22
27	16	12	23	15	24
13	11	11	25	24	26
20	10	11	22	23	28
19	15	11	24	23	26
24	15	8	19	22	20
19	20	14	21	21	21
20	20	13	27	23	28
16	18	7	19	22	24
17	21	17	25	28	24
25	22	8	25	20	24
16	21	9	24	22	22
22	24	13	26	23	27
15	17	7	20	23	24
16	20	8	21	22	26
23	19	15	28	23	22
14	27	5	27	23	28
22	18	14	23	25	20
25	23	12	19	16	20
19	21	10	19	22	25
19	25	22	23	27	25
24	18	18	23	28	26
17	24	17	23	24	19
20	18	14	22	17	21
24	17	8	26	17	21
25	21	17	24	26	24
20	19	13	26	22	21
20	18	14	26	24	27
11	14	6	22	20	28
23	20	18	27	26	24
20	20	16	11	19	20
23	22	18	25	22	25
19	21	5	19	22	23
27	24	17	28	25	26
26	24	19	24	21	24
20	20	6	25	18	25
20	19	15	21	20	23
24	21	16	26	25	28
23	20	16	22	17	18
18	18	15	18	19	21
25	23	17	25	24	25
19	17	11	21	16	25
20	20	18	27	20	19
19	18	14	23	19	24
25	21	18	26	20	20
20	20	20	24	14	20
24	23	17	28	22	25
21	15	10	26	23	23
22	20	14	26	23	23
22	18	18	23	24	28
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
Dataseries Y:
21	19	18	23	23	23
19	19	13	16	16	16
13	7	10	15	25	28
17	17	12	25	23	26
18	23	10	22	24	21
20	23	13	19	26	20
18	18	8	24	24	26
15	18	9	23	25	21
17	15	12	22	19	22
21	14	11	23	21	24
23	17	10	27	21	22
18	20	16	28	23	27
20	21	14	23	25	26
22	18	19	23	19	20
20	18	16	22	24	23
24	21	21	27	14	24
23	16	16	24	20	23
22	17	12	20	12	20
21	12	9	23	18	12
23	25	15	26	24	26
20	12	11	21	19	23
23	22	20	22	9	10
25	25	19	25	17	21
18	17	11	18	19	19
15	17	8	14	15	27
27	24	19	25	22	17
26	27	24	24	27	24
19	22	10	20	22	19
25	24	20	23	25	23
20	23	17	22	25	25
13	16	10	22	21	23
20	16	15	21	18	24
20	15	16	24	25	22
19	19	16	24	23	21
26	22	24	23	24	18
26	22	17	24	21	24
23	19	10	25	26	25
16	17	12	18	14	23
26	22	22	23	21	18
12	20	7	24	25	26
18	13	10	19	21	23
28	22	18	25	22	20
24	20	19	23	15	20
24	21	12	25	21	25
12	15	12	18	16	19
16	23	12	22	23	22
18	18	14	21	19	22
7	10	4	19	12	23
17	13	7	22	17	25
10	19	11	21	20	22
23	19	16	28	24	26
23	22	11	28	28	28
23	21	19	21	24	22
17	18	12	21	18	16
22	19	9	20	13	21
14	16	16	19	20	19
19	17	8	23	24	20
21	26	11	26	24	27
24	23	11	19	27	26
11	8	6	15	14	23
21	19	16	27	21	28
22	21	16	25	25	27
19	16	11	26	20	18
15	17	17	24	26	21
20	17	16	25	22	26
20	19	15	19	21	18
18	19	15	19	13	19
20	24	15	28	21	26
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
21	22	10	24	24	23
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA
NA	NA	NA	NA	NA	NA




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=262944&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'Gwilym Jenkins' @ jenkins.wessa.net



Parameters (Session):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Female ; par5 = Male ;
Parameters (R input):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Female ; par5 = Male ;
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()