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 computationMon, 01 Dec 2008 12:10:35 -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/Dec/01/t12281587338zitx8oormuvm80.htm/, Retrieved Sun, 05 May 2024 08:44:59 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=27195, Retrieved Sun, 05 May 2024 08:44:59 +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] [Random Walk Simul...] [2008-11-25 17:50:19] [b98453cac15ba1066b407e146608df68]
F         [Law of Averages] [non-stationary ti...] [2008-12-01 19:10:35] [e7b1048c2c3a353441b9143db4404b91] [Current]
Feedback Forum
2008-12-07 15:20:11 [Toon Wouters] [reply] 
Juiste berekening en zeer goede interpreatie. Iedereen krijgt grafieken die van elkaar allemaal verschillend zijn omdat het hier gaat om een simmulatie, experiment. Elk experiment is onafhankelijk van het verleden.
2008-12-08 18:05:22 [Jasmine Hendrikx] [reply] 
Eigen evaluatie:
De berekening is goed uitgevoerd en de conclusie en de bespreking is ook juist. Het is inderdaad zo dat we niet kunnen spreken van een lange termijn trend of van seizoenaliteit. Eventueel zou er in het algemeen nog wat uitleg mogen staan over het Random Walk model.
Het Random Walk model heeft veel te maken met financiële markten. Veel economisten zeggen dat het Random Walk model het model is van de financiële markt. Je kunt het dus vergelijken met de beurs. Het model heeft de volgende vergelijking: Yt= Yt-1+ Et. Hierbij is Yt de beurskoers (de rode lijn in de grafiek), Yt-1 de vorige beurskoers en Et is iets dat aan het toeval toegeschreven kan worden. Als het Random Walk model klopt, dan is Ft= Yt-Et=Yt-1, waarbij Ft de voorspelling is. Je moet dus de vorige periode nemen als voorspelling. Je krijgt dan een horizontale lijn vanaf laatste koers als voorspelling. Beursanalisten bekijken het anders en kijken naar de trend (bijvoorbeeld een stijging). Maar ze vergeten dat deze hier absoluut onvoorspelbaar is, aangezien het hier gaat om een simulatie. Als je al een voorspelling zou maken, dan zou het dus een horizontale lijn moeten zijn vanaf de laatste beurskoers.
Er is ook juist geconcludeerd dat elk experiment onafhankelijk is van het verleden. In elk experiment is er 50% kans om led te gooien en 50% kans om kop te gooien. Het nieuwe experiment weet niet wat er in het verleden is gebeurd. De tijdreeks is dus absoluut onvoorspelbaar aangezien het hier gaat om willekeurige getallen, een simulatie.

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

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


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()