Free Statistics

of Irreproducible Research!

Author's title

Author*Unverified author*
R Software Modulerwasp_backtobackhist.wasp
Title produced by softwareBack to Back Histogram
Date of computationMon, 17 Dec 2007 02:59: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/2007/Dec/17/t1197885476vdeet7hbrba2ny9.htm/, Retrieved Fri, 03 May 2024 18:18:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=4314, Retrieved Fri, 03 May 2024 18:18:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact196
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-       [Back to Back Histogram] [Paper G30 Back-to...] [2007-12-17 09:59:15] [44e3ac4f32e975b756edf7d4f50e5cb3] [Current]
Feedback Forum

Post a new message
Dataseries X:
76.4
64.5
58.2
79.2
69.0
66.1
77.5
69.3
70.2
70.2
78.2
85.4
82.4
61.2
52.2
85.3
79.9
72.2
85.7
75.5
69.2
77.6
85.3
77.0
89.9
60.0
54.3
84.0
69.9
75.1
81.7
69.9
68.3
77.3
77.4
85.3
91.0
60.6
57.6
93.8
78.7
80.3
89.8
77.5
71.7
83.2
86.2
100.7
100.8
57.1
62.5
79.7
80.3
92.4
91.8
85.8
84.2
93.1
101.2
100.6
Dataseries Y:
128,6
121,0
121,7
134,4
124,3
119,1
137,8
120,5
122,7
127,2
133,2
136,3
134,9
120,9
109,4
129,6
124,7
114,6
137,4
117,9
117,4
122,0
124,8
123,3
132,8
115,1
104,2
125,5
116,8
116,8
125,5
110,9
114,9
136,4
125,8
126,5
134,0
116,1
115,0
130,3
106,5
111,6
125,0
108,3
105,0
127,4
116,6
128,6
127,5
108,4
110,8
114,2
101,8
109,8
115,9
106,9
114,6
105,4
108,1
118,4




Summary of compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135

\begin{tabular}{lllllllll}
\hline
Summary of compuational transaction \tabularnewline
Raw Input & view raw input (R code)  \tabularnewline
Raw Output & view raw output of R engine  \tabularnewline
Computing time & 2 seconds \tabularnewline
R Server & 'Gwilym Jenkins' @ 72.249.127.135 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=4314&T=0

[TABLE]
[ROW][C]Summary of compuational 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]2 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=4314&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=4314&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 compuational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135



Parameters (Session):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Duurzaam ; par5 = Niet Duurzaam ;
Parameters (R input):
par1 = grey ; par2 = grey ; par3 = TRUE ; par4 = Duurzaam ; par5 = Niet Duurzaam ;
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()