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, 30 Dec 2009 13:27:45 -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/Dec/30/t12622050390y17nz1piuafk89.htm/, Retrieved Mon, 29 Apr 2024 07:37:40 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=71369, Retrieved Mon, 29 Apr 2024 07:37:40 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact117
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Bivariate Data Series] [Bivariate dataset] [2008-01-05 23:51:08] [74be16979710d4c4e7c6647856088456]
- RMPD  [Univariate Explorative Data Analysis] [SHW_WS4_Q3] [2009-10-23 09:32:44] [8b1aef4e7013bd33fbc2a5833375c5f5]
- RM D      [Back to Back Histogram] [] [2009-12-30 20:27:45] [84778c3520b84fd5786bccf2e25a5aef] [Current]
Feedback Forum

Post a new message
Dataseries X:
100.00
99.76
98.74
99.12
100.22
99.98
100.44
100.19
101.59
102.08
101.43
100.27
101.24
100.92
103.04
102.76
102.36
101.35
101.68
100.29
102.68
102.89
103.30
101.75
103.42
102.92
103.44
103.01
103.45
101.87
100.70
101.24
102.73
102.46
103.90
102.32
102.25
103.21
104.00
103.94
103.08
103.27
103.14
102.63
104.49
104.39
105.49
104.68
103.46
103.38
103.25
104.44
104.47
103.68
104.22
103.18
104.30
105.00
107.23
105.92
106.73
107.72
106.78
107.59
110.69
108.11
109.74
108.76
109.66
110.48
110.25
109.93
110.64
110.44
109.90
110.33
112.38
116.42
117.83
118.28
122.75
124.20
122.34
123.17
121.92
122.68
122.30
123.72
123.78
123.07
Dataseries Y:
100.00
100.22
113.63
115.38
114.95
114.07
111.87
112.53
114.07
113.63
112.09
111.87
110.11
111.43
125.05
127.47
127.03
124.18
120.22
121.98
123.52
123.30
121.98
119.56
118.02
119.34
130.55
134.29
134.73
134.29
130.55
130.77
129.89
129.45
128.35
125.93
124.62
125.05
136.48
138.24
138.02
134.51
130.77
131.21
130.33
129.67
127.47
126.15
125.93
125.93
136.26
137.58
136.26
129.23
124.40
122.42
123.30
120.66
116.92
115.60
112.31
109.67
121.98
124.18
119.12
115.82
112.09
112.97
113.63
111.65
108.35
107.69
103.08
105.05
116.04
117.36
113.85
111.21
110.33
113.41
116.04
117.14
117.80
118.02
115.16
117.80
129.01
131.21
127.69
123.96




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

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