Free Statistics

of Irreproducible Research!

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 computationThu, 27 Nov 2008 12:45:04 -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/27/t12278151641v0hd1ymbnapnfu.htm/, Retrieved Sun, 19 May 2024 12:18:47 +0000
Statistical Computations at FreeStatistics.org, Office for Research Development and Education, URL https://freestatistics.org/blog/index.php?pk=25887, Retrieved Sun, 19 May 2024 12:18:47 +0000
QR Codes:

Original text written by user:
IsPrivate?No (this computation is public)
User-defined keywords
Estimated Impact238
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 18:40:39] [b98453cac15ba1066b407e146608df68]
F         [Law of Averages] [Random Walk Simul...] [2008-11-27 19:45:04] [63db34dadd44fb018112addcdefe949f] [Current]
F RMPD      [Standard Deviation-Mean Plot] [Airline Data - St...] [2008-11-27 19:59:14] [58bf45a666dc5198906262e8815a9722]
F RMPD      [(Partial) Autocorrelation Function] [Airline Data - (P...] [2008-11-27 20:27:03] [58bf45a666dc5198906262e8815a9722]
F RMPD      [(Partial) Autocorrelation Function] [Airline Data - (P...] [2008-11-27 20:35:41] [58bf45a666dc5198906262e8815a9722]
F RMPD      [(Partial) Autocorrelation Function] [Airline Data - (P...] [2008-11-27 20:38:30] [58bf45a666dc5198906262e8815a9722]
F RMPD      [(Partial) Autocorrelation Function] [Airline Data - (P...] [2008-11-27 20:40:38] [58bf45a666dc5198906262e8815a9722]
F RMPD      [Variance Reduction Matrix] [Airline Data - Va...] [2008-11-27 20:51:00] [58bf45a666dc5198906262e8815a9722]
F RMPD      [Spectral Analysis] [Airline Data - Sp...] [2008-11-27 20:57:51] [58bf45a666dc5198906262e8815a9722]
- RMPD      [Spectral Analysis] [Airline Data - Sp...] [2008-11-27 21:04:54] [58bf45a666dc5198906262e8815a9722]
- RMPD      [Spectral Analysis] [Airline Data - Sp...] [2008-11-27 21:35:24] [58bf45a666dc5198906262e8815a9722]
- RMPD      [Spectral Analysis] [Airline Data - Sp...] [2008-11-27 21:37:56] [58bf45a666dc5198906262e8815a9722]
- RMPD      [Cross Correlation Function] [Cross Correlation...] [2008-11-27 21:51:52] [58bf45a666dc5198906262e8815a9722]
-   P         [Cross Correlation Function] [Cross Correlation...] [2008-11-28 13:13:26] [58bf45a666dc5198906262e8815a9722]
F   P           [Cross Correlation Function] [Cross Correlation...] [2008-12-01 18:20:31] [58bf45a666dc5198906262e8815a9722]
F   P         [Cross Correlation Function] [Cross Correlation...] [2008-11-28 13:30:46] [58bf45a666dc5198906262e8815a9722]
F RMPD      [Standard Deviation-Mean Plot] [Standard Deviatio...] [2008-11-27 22:08:29] [58bf45a666dc5198906262e8815a9722]
-    D        [Standard Deviation-Mean Plot] [Standard Deviatio...] [2008-11-27 22:18:06] [58bf45a666dc5198906262e8815a9722]
- RMP         [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:25:58] [58bf45a666dc5198906262e8815a9722]
F   P           [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:12:46] [58bf45a666dc5198906262e8815a9722]
F   P           [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:15:39] [58bf45a666dc5198906262e8815a9722]
F   P           [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:17:42] [58bf45a666dc5198906262e8815a9722]
F   P           [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:20:24] [58bf45a666dc5198906262e8815a9722]
-   PD          [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:23:41] [58bf45a666dc5198906262e8815a9722]
-   PD          [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:26:03] [58bf45a666dc5198906262e8815a9722]
-   PD          [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:26:03] [58bf45a666dc5198906262e8815a9722]
-   PD          [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:29:39] [58bf45a666dc5198906262e8815a9722]
-   PD          [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-28 10:31:19] [58bf45a666dc5198906262e8815a9722]
- RMP         [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:29:15] [58bf45a666dc5198906262e8815a9722]
- RMP         [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:31:47] [58bf45a666dc5198906262e8815a9722]
- RMP         [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:33:51] [58bf45a666dc5198906262e8815a9722]
- RMPD        [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:37:06] [58bf45a666dc5198906262e8815a9722]
- RMPD        [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:39:04] [58bf45a666dc5198906262e8815a9722]
- RMPD        [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:41:03] [58bf45a666dc5198906262e8815a9722]
- RMPD        [(Partial) Autocorrelation Function] [(Partial) Autocor...] [2008-11-27 22:42:39] [58bf45a666dc5198906262e8815a9722]
- RM D        [Variance Reduction Matrix] [Variance Reductio...] [2008-11-27 22:45:11] [58bf45a666dc5198906262e8815a9722]
F RM          [Variance Reduction Matrix] [Variance Reductio...] [2008-11-27 22:46:51] [58bf45a666dc5198906262e8815a9722]
F RMP         [Spectral Analysis] [Spectral Analysis...] [2008-11-27 22:49:42] [58bf45a666dc5198906262e8815a9722]
- RMP         [Spectral Analysis] [Spectral Analysis...] [2008-11-27 22:53:13] [58bf45a666dc5198906262e8815a9722]
- RMP         [Spectral Analysis] [Spectral Analysis...] [2008-11-27 22:55:39] [58bf45a666dc5198906262e8815a9722]
- RMP         [Spectral Analysis] [Spectral Analysis...] [2008-11-27 22:58:38] [58bf45a666dc5198906262e8815a9722]
- RMPD        [Spectral Analysis] [Spectral Analysis...] [2008-11-27 23:01:45] [58bf45a666dc5198906262e8815a9722]
- RMPD        [Spectral Analysis] [Spectral Analysis...] [2008-11-27 23:04:22] [58bf45a666dc5198906262e8815a9722]
- R P           [Spectral Analysis] [Q4] [2008-12-01 15:46:23] [84dda5145c389bd11bcc662bd33fe4ba]
F R P           [Spectral Analysis] [Q4] [2008-12-01 15:46:23] [84dda5145c389bd11bcc662bd33fe4ba]
F   P           [Spectral Analysis] [Q4] [2008-12-01 15:52:17] [43d870b30ac8a7afeb5de9ee11dcfc1a]
Feedback Forum
2008-12-04 13:37:35 [Matthieu Blondeau] [reply
Ook hier kan ik niets op zeggen, een correct antwoord.

Post a new message




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

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



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()
b
x <- b
bitmap(file='test1.png')
r <- spectrum(x,main='Raw Periodogram')
dev.off()
r
bitmap(file='test2.png')
cpgram(x,main='Cumulative Periodogram')
dev.off()