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 computationMon, 20 Oct 2008 11:09:51 -0600
Cite this page as followsStatistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?v=date/2008/Oct/20/t1224522790c3vuu2rhqpvdh29.htm/, Retrieved Fri, 17 May 2024 23:16:42 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=17695, Retrieved Fri, 17 May 2024 23:16:42 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact111
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F       [Back to Back Histogram] [waals gewest/brussel] [2008-10-20 17:09:51] [bda7fba231d49184c6a1b627868bbb81] [Current]
Feedback Forum
2008-10-23 09:18:31 [Ellen Smolders] [reply
Opnieuw heeft de student de assen en titel van de grafiek onduidelijk benoemd, zodat het moeilijk is de grafiek te interpreteren. Persoonlijk vind ik dat deze grafiek een vertekend beeld geeft omdat de werkloosheidsaantallen in het Brussels Hoofdstelijk Gewest uiteraard lager liggen dan in het Waalse Gewest, dit doordat dit gebied veel kleiner is dan het andere, dus de totalen zullen ook veel lager liggen. Uit deze grafiek kan men dus niet veel afleiden.

Post a new message
Dataseries X:
250853
245775
220309
216689
220316
220726
220286
216507
213020
213001
231854
236386
241168
240326
234294
235304
238127
238726
235694
236660
232986
233705
253525
254303
261224
258778
252791
256389
258961
258647
256304
250498
247883
249552
262626
264416
273049
272441
267564
265952
263937
264765
263386
258985
257334
257477
271486
274488
281274
272674
269704
268227
276444
272247
268516
263406
263619
265905
281681
287413
289423
Dataseries Y:
72157
72928
75340
74812
74593
76003
75112
75452
75634
75653
78645
73100
79699
82848
81834
81736
82267
84120
83819
82734
81842
81735
83227
81934
89521
88827
85874
85211
87130
88620
89563
89056
88542
89504
89428
86040
96240
94423
93028
92285
91685
94260
93858
92437
92980
92099
92803
88551
98334
98329
96455
97109
97687
98512
98673
96028
98014
95580
97838
97760
99913




Summary of computational 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 computational 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=17695&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]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=17695&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=17695&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 time2 seconds
R Server'Gwilym Jenkins' @ 72.249.127.135



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