FreeStatistics.org

Free Statistics

of Irreproducible Research!

Description of Statistical Computation

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:29:40 -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/t1224509437kwapj0eleipbhk8.htm/, Retrieved Tue, 14 May 2024 20:43:45 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=17243, Retrieved Tue, 14 May 2024 20:43:45 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact151

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Back to Back Histogram] [Q2 Total / Clothi...] [2007-10-18 10:14:23] [b731da8b544846036771bbf9bf2f34ce]
F   PD    [Back to Back Histogram] [Totale Productie ...] [2008-10-20 13:29:40] [de3f0516a1536f7c4a656924d8bc8d07] [Current]
Feedback Forum
2008-10-25 12:16:10 [Davy De Nef] [reply] 
We zien dat het gemiddelde van de kledijproductie, lager ligt dan het gemiddelde van de totale productie.
Er is zelfs sprake van een significant verschil.
Het is leuk dat de student werkt met kleurtjes.
2008-10-25 13:33:35 [Astrid Sniekers] [reply] 
Het antwoord van de student is fout geformuleerd. De DISTRIBUTIE van de totale productie en de productie van kledij niet gelijkaardig zijn. Aan de hand van het histogram kunnen we ook zeggen dat de totale productie beter is dan de productie van kledij. Het gemiddelde van de totale productie ligt namelijk hoger dan deze van de productie van kledij (Dit omdat de langste balken bij de totale productie veel langer zijn dan de langste balken bij de productie van kledij.)
2008-10-26 15:51:43 [Kristof Augustyns] [reply] 
Wat hier gezegd wordt is wel waar, maar veel te beknopt.
Hier zien we duidelijk dat de distributie van de totale productie hoger ligt dan die van de kledingproductie.
Je ziet zo met het blote oog dat de blauwe balken(totale productie) veel langer zijn en hoger liggen dan de rode balken(kleding productie).
Hieruit kan men dan ook zonder probleem met het blote oog zien dat het gemiddelde van de totale productie hoger ligt dan die van de kleding productie.
=> Afzwakking kleding productie = afzwakking gemiddelde.
Ook zou vermeld moeten worden dat men bij een back to back histogram niet kan afleiden of de productie in stijgende lijn is.
Dit histogram dient enkel en alleen om distributie van productie met elkaar te vergelijken.
2008-10-27 10:58:38 [Thomas Beyers] [reply] 
De grafiek van de totale productie heeft een linkse scheefheid en de grafiek van de productie van kleding vertoont een rechtse scheefheid.
Hieruit kan je afleiden dat de verdelingen van de totale productie en de productie van kleding niet gelijkaardig verdeeld zijn. De productie van kleding ligt op een lager niveau dan de totale productie. Op de y-as kan je zien dat de waarden van de totale productie hoger liggen dan de productie van kledij, wat logisch is want productie van kledij is deel van de totale productie. Als je kijkt naar de specifieke waarden dan kunnen we zien dat deze niet overeenkomen. Anders zou het een spiegelbeeld moeten zijn. Als de kledij met 1 zou stijgen dan zou het totaal ook moeten stijgen. De grafieken zouden in de figuur overeen moeten komen. Een logische redenering zou zeggen dat ze gelijk zouden moeten stijgen, maar dit is niet zo. Hier is een economische verklaring voor, nl. dat buiten de productie van kleding er ook nog andere goederen geproduceerd worden.
2008-10-27 20:07:20 [Bart Haemels] [reply] 
Beide datasets lopen inderdaad niet gelijkaardig. De ene heeft een linkse scheefheid de andere een Rechtse scheefheid. De gemiddelde Totale productie is ook veel groter zie maar naar het verschil op de y-as. Dit is simpel te verklaren De totale productie bestaat uit de productie van vele goederen. De productie van kledij is maar 1 segment van de de totale productie vandoor ook het verschil tussen de grote van de gemiddeldes.

Post a new message

Dataset

Dataseries X:
Download CSV
Histogram
Boxplots 
110,40
96,40
101,90
106,20
81,00
94,70
101,00
109,40
102,30
90,70
96,20
96,10
106,00
103,10
102,00
104,70
86,00
92,10
106,90
112,60
101,70
92,00
97,40
97,00
105,40
102,70
98,10
104,50
87,40
89,90
109,80
111,70
98,60
96,90
95,10
97,00
112,70
102,90
97,40
111,40
87,40
96,80
114,10
110,30
103,90
101,60
94,60
95,90
104,70
102,80
98,10
113,90
80,90
95,70
113,20
105,90
108,80
102,30
99,00
100,70
115,50
Dataseries Y:
Download CSV
Histogram 
109.20
88.60
94.30
98.30
86.40
80.60
104.10
108.20
93.40
71.90
94.10
94.90
96.40
91.10
84.40
86.40
88.00
75.10
109.70
103.00
82.10
68.00
96.40
94.30
90.00
88.00
76.10
82.50
81.40
66.50
97.20
94.10
80.70
70.50
87.80
89.50
99.60
84.20
75.10
92.00
80.80
73.10
99.80
90.00
83.10
72.40
78.80
87.30
91.00
80.10
73.60
86.40
74.50
71.20
92.40
81.50
85.30
69.90
84.20
90.70
100.30

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001

\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 & 3 seconds \tabularnewline
R Server & 'Herman Ole Andreas Wold' @ 193.190.124.10:1001 \tabularnewline
\hline
\end{tabular}
%Source: https://freestatistics.org/blog/index.php?pk=17243&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]3 seconds[/C][/ROW]
[ROW][C]R Server[/C][C]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=17243&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=17243&T=0

As an alternative you can also use a QR Code:  
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 time3 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Figures (Output of Computation)

Input Parameters & R Code

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