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 computationThu, 18 Dec 2014 00:38: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/2014/Dec/18/t14188631453h04y2y6n1fyppo.htm/, Retrieved Sun, 19 May 2024 17:03:39 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=270744, Retrieved Sun, 19 May 2024 17:03:39 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact109
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Percentiles] [Intrinsic Motivat...] [2010-10-12 12:10:58] [b98453cac15ba1066b407e146608df68]
- RMPD  [Kernel Density Estimation] [] [2011-10-18 22:42:23] [b98453cac15ba1066b407e146608df68]
- RMPD    [Percentiles] [] [2011-10-18 22:46:45] [b98453cac15ba1066b407e146608df68]
- RMPD      [Notched Boxplots] [] [2011-10-18 22:58:56] [b98453cac15ba1066b407e146608df68]
- RM D        [Back to Back Histogram] [] [2011-10-18 23:05:48] [b98453cac15ba1066b407e146608df68]
- RMPD            [Back to Back Histogram] [] [2014-12-18 00:38:54] [8bc211f73340264728ef5f82b44185ba] [Current]
Feedback Forum

Post a new message
Dataseries X:
117
129
122
119
139
104
117
121
112
120
106
128
91
107
103
123
126
108
115
143
111
115
126
140
112
114
125
133
146
124
127
128
132
118
128
111
149
125
105
137
137
103
145
130
102
131
104
131
117
141
114
106
128
130
127
131
120
126
130
99
161
121
120
129
136
110
129
125
128
140
145
138
148
113
116
128
155
73
142
117
108
142
125
121
117
128
135
Dataseries Y:
127
99
126
98
120
118
121
121
118
53
121
111
107
100
114
120
132
107
117
110
129
114
121
123
131
122
118
103
108
95
116
131
106
132
124
114
139
106
106
135
106
113
130
132
124
102
96
134
122
152
115
116
141
137
112
140
132
124
105
114
112
113
137
122
121
129
101
138
122
137
134
106
135
109
128
147
100
132
138
114
114
118
104
135
121
128
140
92
116
118
109
139
112
75
109
101
124
117
103
130
136
140
130
118
139
102
118
104
104
111
135
130
77
132
128
136
110
120
126
133
112
103
134
124




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=270744&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'George Udny Yule' @ yule.wessa.net



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