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_rwalk.wasp
Title produced by softwareLaw of Averages
Date of computationSun, 30 Nov 2008 14:51:39 -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/2008/Nov/30/t12280819317uu5deu9mq6uju4.htm/, Retrieved Mon, 27 May 2024 23:09:58 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=26752, Retrieved Mon, 27 May 2024 23:09:58 +0000
QR Codes:

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

Tree of Dependent Computations

Family? (F = Feedback message, R = changed R code, M = changed R Module, P = changed Parameters, D = changed Data)
F     [Law of Averages] [Q1 1] [2008-11-30 21:04:21] [547636b63517c1c2916a747d66b36ebf]
F         [Law of Averages] [] [2008-11-30 21:51:39] [6d40a467de0f28bd2350f82ac9522c51] [Current]
Feedback Forum
2008-12-05 16:48:26 [Kristof Van Esbroeck] [reply] 
De berekeningen en reproducties werden gemaakt, echter zonder duidelijke verklaring en of interpretatie van de bekomen resultaten.

Wanneer we het de berekening reproduceren krijgen we inzicht en een briefing over de uitgevoerde proef.

In dit geval tracht men een theorie te bekijken mbt het opgooien – tossen – van een munt. Men stelt dat wanneer men, in deze case 500 keer, een munt verschillende malen zou opwerpen we een evenredig aantal maal kop bekomen in verhouding tot let.

Wanneer men de proef enkele malen tracht te reproduceren kunnen we de theorie vergelijken met de bekomen resultaten.

We merken twee verschillende grafieken op.

De eerste grafiek, Excess of Heads, geeft weer hoeveel maal men na mekaar kop bekomt. In theorie zou men beurtelings kop en let moeten bekomen en bijgevolg zou de grafiek een horizontale rechte moeten weergeven. Dit is uiteraard niet het geval, de grafieken vertonen telkens een ander verloop.

De tweede grafiek, Proportion of Heads, geeft weer hoeveel maal men in totaal kop bekomt. Men zou hier theoretisch bekeken 50% moeten bekomen. We merken op dat hoe meer men de munt opwerpt, hoe dichter het percentage rond de 50% gaat schommelen. Dit is dan ook de trend die we in het model waarnemen.
2008-12-08 08:23:31 [Dorien Peeters] [reply] 
Ik mis hier toch nog wat meer informatie ivm de tijdreeksen. men gaat in deze tijdreeksen een theorie zoeken achter het werpen va kop of let. Men wil weten of we indien we 500 maal gooien, het aantal keren we kop of let gooien, evenredig is.
Als we naar de grafieken kijken zien we dat we bij de eerste grafiek kunnen zien hoeveel keer we kop gooien. Als we het theoretisch zouden bekijken, kunnen we ervan uitgaan dat we altijd evenveel keer kop als let zouden gooien.=>de grafiek zou een horizontale rechte moeten zijn. Dit is natuurlijk niet zo, als we de grafiek bekijken zien we alles behalve een mooi horizontale rechte, de grafiek heeft hier altijd een ander verloop.Indien we naar de grafiek kijken 'Porportion of heads' zien we dat hoe vaker we de munt gooien, hoe dichter het percentage bij 50 ligt. Dus hoe vaker we gooien, hoe meer de grafiek een mooi horizontaal verloop kent.

Post a new message

Dataset

Tables (Output of Computation)





Summary of computational transaction
Raw Inputview raw input (R code)
Raw Outputview raw output of R engine
Computing time2 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 & 2 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=26752&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]'Herman Ole Andreas Wold' @ 193.190.124.10:1001[/C][/ROW]
[/TABLE]
Source: https://freestatistics.org/blog/index.php?pk=26752&T=0

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=26752&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 time2 seconds
R Server'Herman Ole Andreas Wold' @ 193.190.124.10:1001


Figures (Output of Computation)

Input Parameters & R Code

Parameters (Session):
par1 = 500 ; par2 = 0.5 ;
Parameters (R input):
par1 = 500 ; par2 = 0.5 ;
R code (references can be found in the software module):
n <- as.numeric(par1)
p <- as.numeric(par2)
heads=rbinom(n-1,1,p)
a=2*(heads)-1
b=diffinv(a,xi=0)
c=1:n
pheads=(diffinv(heads,xi=.5))/c
bitmap(file='test1.png')
op=par(mfrow=c(2,1))
plot(c,b,type='n',main='Law of Averages',xlab='Toss Number',ylab='Excess of Heads',lwd=2,cex.lab=1.5,cex.main=2)
lines(c,b,col='red')
lines(c,rep(0,n),col='black')
plot(c,pheads,type='n',xlab='Toss Number',ylab='Proportion of Heads',lwd=2,cex.lab=1.5)
lines(c,pheads,col='blue')
lines(c,rep(.5,n),col='black')
par(op)
dev.off()