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 computationSat, 14 Nov 2009 13:41:57 -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/14/t1258231371zo5at9pxxytyqym.htm/, Retrieved Sun, 28 Apr 2024 15:40:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=57256, Retrieved Sun, 28 Apr 2024 15:40:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact153
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Back to Back Histogram] [Back to Back hist...] [2009-11-14 20:41:57] [99bf2a1e962091d45abf4c2600a412f9] [Current]
Feedback Forum

Post a new message
Dataseries X:
77.21
81.52
100.00
87.41
64.23
71.41
51.22
48.64
55.06
63.65
54.83
40.83
83.69
74.18
85.44
79.01
67.92
80.67
53.28
54.31
57.99
60.25
58.05
34.12
95.26
89.41
106.63
83.90
83.21
75.88
58.09
54.10
57.26
67.79
56.72
34.51
91.31
80.10
97.17
78.26
77.23
82.16
65.17
55.56
59.97
75.42
59.51
38.84
93.18
91.74
93.80
101.36
79.60
83.25
64.49
54.04
62.03
70.43
49.78
35.72
Dataseries Y:
101.26
101.08
100.00
98.02
96.76
97.84
107.03
110.09
110.45
110.09
107.03
107.21
106.49
106.13
105.23
103.24
102.16
102.52
111.89
113.33
113.15
110.27
107.21
107.57
106.85
106.31
104.50
103.42
103.24
103.24
111.71
112.79
111.71
105.95
101.98
100.36
101.08
98.92
95.86
94.77
92.07
89.91
100.00
101.80
97.66
94.95
91.89
92.61
93.15
91.53
88.83
88.29
84.50
86.13
95.14
96.22
93.33
91.17
90.45
92.97




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=57256&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=57256&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=57256&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 = grey ; par2 = grey ; par3 = TRUE ; par4 = Auto ; par5 = Werkloos ;
Parameters (R input):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Auto ; par5 = Werkloos ;
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()