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, 23 Dec 2009 06:55:31 -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/23/t1261576574m91hodletxf6wrc.htm/, Retrieved Mon, 29 Apr 2024 14:47:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=70530, Retrieved Mon, 29 Apr 2024 14:47:58 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact122
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
-     [Back to Back Histogram] [3/11/2009] [2009-11-02 21:58:53] [b98453cac15ba1066b407e146608df68]
-   PD    [Back to Back Histogram] [Workshop 6: Back ...] [2009-12-23 13:55:31] [d41d8cd98f00b204e9800998ecf8427e] [Current]
Feedback Forum

Post a new message
Dataseries X:
106.5789
101.3158
98.68421
100
102.6316
102.6316
102.6316
98.68421
98.68421
93.42105
98.68421
98.68421
100
101.3158
101.3158
103.9474
106.5789
107.8947
107.8947
107.8947
103.9474
96.05263
90.78947
86.84211
88.15789
90.78947
92.10526
93.42105
94.73684
93.42105
90.78947
92.10526
89.47368
84.21053
88.15789
86.84211
84.21053
82.89474
81.57895
85.52632
89.47368
89.47368
84.21053
80.26316
76.31579
80.26316
94.73684
96.05263
90.78947
80.26316
76.31579
81.57895
93.42105
101.3158
103.9474
101.3158
97.36842
98.68421
105.2632
106.5789
Dataseries Y:
87.60884
80.37508
73.94508
73.94508
76.35633
77.16008
76.35633
73.14133
71.53382
72.33758
81.17883
82.78634
81.98259
77.16008
73.94508
74.74883
75.55258
75.55258
73.94508
72.33758
72.33758
72.33758
78.76758
80.37508
78.76758
74.74883
72.33758
72.33758
73.14133
73.14133
73.14133
73.94508
70.73007
66.71132
67.51507
65.10382
61.88881
63.49632
63.49632
64.30007
63.49632
61.08506
57.06631
54.65506
52.2438
55.45881
65.90757
69.92632
66.71132
63.49632
60.28131
62.69257
66.71132
67.51507
65.90757
61.88881
57.87006
58.67381
65.10382
68.31882




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

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