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 computationTue, 02 Dec 2008 10:30:23 -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/02/t1228239084dppanpeea97cfy6.htm/, Retrieved Sun, 19 May 2024 12:35:09 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=28119, Retrieved Sun, 19 May 2024 12:35:09 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywordsjenske_cole@hotmail.com
Estimated Impact152

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] [time series] [2008-12-02 17:30:23] [120dfa2440e51a0cfc0f5296bc5d7460] [Current]
Feedback Forum
2008-12-07 13:36:16 [6066575aa30c0611e452e930b1dff53d] [reply] 
Het is inderdaad zo dat deze grafieken ons niet in staat stellen om een voorspelling te maken. Verder kan men hier ook nog vermelden dat in de eerste grafiek tussen 350 en 425 kop veel minder vaak voorkomt dan munt. Men had ook nog kunnen vermelden dat elk experiment onafhankelijk is van het verleden, het muntstuk weet dus niet of hij vroeger kop/munt had. Verder had men ook kunnen vermelden dat de tweede grafiek convergeert naar 50%. Het Random-walk model stelt dat als ik, bijvoorbeeld, een voorspelling wil maken van de beurskoers ik naar de vorige periode moet kijken. We zien op de eerste grafiek een schijnbaar trendmatig verloop dat schijnbaar voorspelbaar is. Dit is niet voorspelbaar omdat je weet dat een stijging aan het toeval te wijten is. Dus er zijn geen patronen in het verleden van deze reeks die mij instaat stellen om een voorspelling te maken. Verder is er geen sprake van seizoenaliteit. Verder kan hier ook nog bij vermeld worden dat de kop-en schouderformatie puur door toeval is ontstaan. Er zijn geen patronen in het verleden van deze reeks die mij instaat stellen om een voorspelling te maken. Bovendien is de trend hier onvoorspelbaar omdat die gesimuleerd is.
2008-12-07 14:21:07 [Stephanie Vanderlinden] [reply] 
De student merkt op dat er hier geen seizoenaliteit is en dat er een schijnbaar trendmatig verloop is, de student ziet dit echter niet in de grafieken. De trend is niet voorspelbaar omdat we hier te maken hebben met een simulatie. Er zijn verschillende patronen op te merken, via de kop- en schouderpatronen kan je hier echter geen verklaring voor geven. Aangezien er geen wederkerende patronen op te merken zijn, kunnen we niet spreken van seizoenaliteit.
2008-12-08 13:35:44 [58d427c57bd46519a715a3a7fea6a80f] [reply] 
Bij deze workshop doen we een simulatie-experiment met een muntstuk, je kan zowel kop als munt gooien.
De grafiek met de rode lijn heeft als x-as het aantal keer dat er gegooid wordt met het muntsuk en de y-as toont ons hoe vaak de kant met kop meer wordt gegooid als de kant met munt.
De grafiek met de blauwe lijn heeft als x-as het aantal keer dat er gegooid wordt en als y-as de proportie van de kant met kop. Je kijkt hier op lange termijndat dit muntstuk gaat convergeren naar 50%.

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

Globally Unique Identifier (entire table): ba.freestatistics.org/blog/index.php?pk=28119&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()