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 07:39:56 -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/t12245100515khhvfr8kqvlcu2.htm/, Retrieved Sun, 19 May 2024 16:29:48 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=17258, Retrieved Sun, 19 May 2024 16:29:48 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact177
Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Univariate Data Series] [Werkloosheid mannen] [2008-10-13 15:28:04] [7d3039e6253bb5fb3b26df1537d500b4]
F RMPD    [Back to Back Histogram] [Back to back reeks 1] [2008-10-20 13:39:56] [35348cd8592af0baf5f138bd59921307] [Current]
-   PD      [Back to Back Histogram] [Q8 Back to back m...] [2008-10-27 19:38:08] [7d3039e6253bb5fb3b26df1537d500b4]
-   PD      [Back to Back Histogram] [Q8 back to back m...] [2008-10-27 19:50:07] [7d3039e6253bb5fb3b26df1537d500b4]
-   PD      [Back to Back Histogram] [Q8 back to back m...] [2008-10-27 19:52:12] [7d3039e6253bb5fb3b26df1537d500b4]
-   PD      [Back to Back Histogram] [Q8 back to back v...] [2008-10-27 19:54:13] [7d3039e6253bb5fb3b26df1537d500b4]
-   PD      [Back to Back Histogram] [Q8 back to back v...] [2008-10-27 19:55:33] [7d3039e6253bb5fb3b26df1537d500b4]
-   PD      [Back to Back Histogram] [Q8 back to back j...] [2008-10-27 19:56:53] [7d3039e6253bb5fb3b26df1537d500b4]
Feedback Forum
2008-10-24 13:31:42 [Annelies Michiels] [reply
Het is spijtig dat de student in haar document geen analyse maakt van het back-to-back histogram.
De andere vragen waren zo goed geanalyseerd dat het echt spijtig is om niet te kunnen lezen want de student van dit histogram vind.

De student heeft ook niet de links naar de tijdreeksen opgenomen waardoor het moeilijk is om de gegevens te controleren. Bovendien staat er niet echt veel informatie bij het back-to-back histogram, waardoor ik er niet zo goed aan uit kan welke twee tijdreeksen de student in het histogram met elkaar vergelijkt.

Als we het histrogram bekijken kunnen we zien dat de gemiddelde min of meer op dezelfde hoogte liggen.
We kunnen dus wel concluderen dat de waarden iets met elkaar te maken hebben.

Maar als ik de rest van de reeksen bekijk in het document en ik bekijk de grafiek die er is in opgenomen denk ik dat 4 maal dezelfde gafiek is opgenomen.

Het is toch niet mogelijk dat als we alle 4de tijdreeksen met elkaar gaan vergelijken in een histrogram we tot dezelfde back-to-back histogram komen?

Omdat ik niet exact weet over welke periode de tijdreeks loopt heb ik zelf een periode gekozen om deze 4 tijdreeksen met elkaar te vergelijken zodat ik kan aantonen dat het back-to-back histrogram niet vier maal dezelfde kan zijn.

http://www.nbb.be/belgostat/PresentationLinker?TableId=410000092&Lang=N
Dit is de tabel van tijdreeksen die ik heb bekomen.
Als we de tabel bekijken zien we dat de reeks maar loopt van 2007 tot 2008. Ik heb gezocht naar waarden van voor 2007 maar niet gevonden.
Komt de student haar tijdreeksen daar ook van? Want dan kunnen de tijdreeksen onmogelijk 60 observaties bevatten.

Ik heb dan maar alle back-to-back histogrammen van de student vergeleken, de tijdreeksen bevatten wel 60 observaties maar ze vergelijkt altijd dezefde 2 tijdreeksen.

Volgens mij was het hier de bedoeling om:
tijdreeks 1 met tijdreeks 2,3,4 te vergelijken en tijdreeks 2 op zijn beurt te vergelijken met tijdreeks 3,4 en tijdreeks 3 met tijdreeks 4.
Waardoor er 6 verschillende back-to-back histogrammen onstaan.

2008-10-27 19:40:47 [Stéphanie Claes] [reply
Dit is inderdaad een zeer fout back-to-back histogram, ik weet zelfs niet meer vanwaar de waarden komen maar ze zijn heel fout.
Ter verbetering: http://www.freestatistics.org/blog/index.php?v=date/2008/Oct/27/t1225136337d56r1b3ped3i0va.htm
Zo zou het er beter uit moeten zien, en dan zien we ook dat het vrij identiek verloopt.
2008-10-27 23:43:12 [Jeroen Michel] [reply
Dit is inderdaad niet wat wordt gevraagd of wordt verwacht. Voor een correcte oplossingen is het aan te raden onderstaande links te raadplegen.

1) http://www.nbb.be/belgostat/PresentationLinker?TableId=410000092&Lang=N

2) http://www.freestatistics.org/blog/index.php?v=date/2008/Oct/27/t1225136337d56r1b3ped3i0va.htm

Post a new message
Dataseries X:
1.97629
-0.0361
0.07117
1.23355
0.28578
0.2158
1.37532
0.88658
0.01751
-1.63386
-0.10037
1.12964
-0.51118
-2.30805
0.27471
-0.62217
-0.11151
-0.1141
-1.18533
-0.17558
-0.52126
-0.2211
-0.55288
-0.43851
-0.56762
1.81772
0.59778
0.30372
1.71796
-0.89267
0.57353
-1.01236
-0.48203
0.51141
-0.55989
-0.48264
1.47293
1.59422
-0.73087
-0.03829
0.99176
-1.86628
-0.43733
0.93608
0.38318
-0.30173
-1.00425
0.8098
1.45966
-2.19123
-0.40534
1.94067
0.48497
-0.2021
-1.16963
-0.36985
0.75979
0.19779
-0.45474
-0.9206
-0.10771
-1.20366
2.67487
1.57247
0.67842
0.11641
-0.46631
1.84623
-1.2914
0.96074
0.23254
0.86255
1.41143
-0.01301
0.20226
-2.78601
-0.158
0.83164
2.18853
-1.14609
0.23125
0.02265
1.37913
-0.24625
-0.00513
-0.963
-0.01937
-1.15867
-0.15707
-0.60072
-0.164
-0.6838
1.66298
-0.57167
-0.03546
-0.39706
0.71473
1.26745
-0.35679
-1.02532
Dataseries Y:
0.65741
-0.23311
0.74568
0.54108
-0.83516
0.13481
-0.28442
0.46668
-1.10642
-0.10782
0.05024
0.31088
0.17889
-1.05978
-0.97363
-0.56134
-1.2829
1.98664
0.07118
-0.40209
-0.19577
-0.39322
-0.09014
-0.19331
-0.6323
-0.37168
-0.73259
-0.81329
0.58775
-0.53212
1.47014
0.12605
0.87762
-0.47746
-2.24293
0.01562
1.13217
-0.07541
-0.44371
0.26008
0.01334
-0.96388
1.65731
-0.22507
-1.51857
-1.33558
0.52953
1.39326
1.12663
-0.01136
0.94034
0.78786
0.08694
0.0328
1.55286
-2.40488
0.16733
-0.40313
-1.74584
-0.69384
-0.13967
-0.45824
0.984
0.68723
-1.1106
0.54159
0.78018
-1.19219
-0.24727
1.65407
0.50304
0.91005
1.75622
0.12704
0.26597
1.08004
0.00937
0.38422
-0.53297
-0.82255
-0.04665
-0.56281
0.78689
-0.64757
-0.78003
-0.90153
1.12854
-0.38383
-0.59328
-0.12503
-0.48269
1.67105
0.686
-0.72765
0.30209
0.25766
1.12498
-0.31011
0.82459
1.17489




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

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