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 computationFri, 13 Nov 2009 11:00:15 -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/2009/Nov/13/t12581352501bqw0lb9ptpw0rf.htm/, Retrieved Sun, 05 May 2024 17:11:14 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=56951, Retrieved Sun, 05 May 2024 17:11:14 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact115
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Back to Back Histogram] [3/11/2009] [2009-11-02 21:58:53] [b98453cac15ba1066b407e146608df68]
-   PD    [Back to Back Histogram] [ws6 2] [2009-11-13 18:00:15] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
91,46
90,24
93,90
96,34
93,90
86,59
75,61
70,73
74,39
84,15
89,02
87,80
74,39
70,73
74,39
78,05
82,93
82,93
79,27
75,61
76,83
78,05
80,49
81,71
78,05
82,93
85,37
84,15
86,59
87,80
86,59
85,37
84,15
81,71
80,49
84,15
89,02
96,34
100,00
100,00
100,00
98,78
96,34
93,90
93,90
92,68
91,46
91,46
86,59
91,46
91,46
95,12
95,12
95,12
92,68
91,46
93,90
98,78
97,56
92,68
80,49
79,27
82,93
91,46
97,56
100,00
98,78
96,34
96,34
92,68
91,46
92,68
89,02
91,46
92,68
91,46
92,68
95,12
96,34
95,12
91,46
80,49
76,83
76,83
73,17
76,83
78,05
76,83
76,83
78,05
81,71
81,71
82,93
75,61
70,73
68,29
65,85
69,51
70,73
67,07
65,85
65,85
65,85
67,07
68,29
69,51
70,73
65,85
59,76
63,41
67,07
71,95
76,83
79,27
78,05
78,05
80,49
82,93
87,80
Dataseries Y:
73,74
72,73
77,78
82,83
84,85
83,84
78,79
75,76
79,80
83,84
87,88
82,83
69,70
65,66
68,69
71,72
76,77
79,80
80,81
79,80
79,80
77,78
81,82
84,85
83,84
88,89
92,93
91,92
91,92
91,92
90,91
90,91
93,94
98,99
101,01
98,99
90,91
90,91
90,91
92,93
94,95
94,95
93,94
92,93
96,97
103,03
104,04
102,02
90,91
89,90
91,92
95,96
96,97
95,96
92,93
92,93
101,01
110,10
112,12
105,05
85,86
80,81
83,84
93,94
98,99
100,00
93,94
90,91
91,92
94,95
94,95
91,92
79,80
79,80
82,83
87,88
91,92
90,91
86,87
84,85
87,88
92,93
94,95
92,93
78,79
77,78
79,80
86,87
90,91
91,92
88,89
84,85
84,85
77,78
73,74
70,71
67,68
70,71
71,72
69,70
71,72
75,76
81,82
85,86
89,90
90,91
92,93
87,88
80,81
81,82
83,84
81,82
84,85
89,90
94,95
97,98
102,02
105,05
108,08




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=56951&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' @ 72.249.127.135



Parameters (Session):
par1 = red ; par2 = blue ; par3 = TRUE ; par4 = wlhm ; par5 = wlhv ;
Parameters (R input):
par1 = red ; par2 = blue ; par3 = TRUE ; par4 = wlhm ; par5 = wlhv ;
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()