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 computationTue, 09 Dec 2014 18:09:27 +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/09/t1418148572iod76spvp7p5ik4.htm/, Retrieved Thu, 16 May 2024 09:25:43 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=264788, Retrieved Thu, 16 May 2024 09:25:43 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact124
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-09 17:55:01] [ea990983fba95a758c0bb6d29c9aee24]
-   P               [Back to Back Histogram] [] [2014-12-09 18:09:27] [6260c34aa94cecca073345f42e0d4b5d] [Current]
-    D                [Back to Back Histogram] [] [2014-12-15 15:29:35] [ea990983fba95a758c0bb6d29c9aee24]
- RMPD                [Paired and Unpaired Two Samples Tests about the Mean] [] [2014-12-15 15:37:55] [ea990983fba95a758c0bb6d29c9aee24]
Feedback Forum

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




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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=264788&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'Herman Ole Andreas Wold' @ wold.wessa.net



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