R/Random.walk.D.R

In CryptRndTest: Statistical Tests for Cryptographic Randomness

Defines functions Random.walk.D

Documented in Random.walk.D

Random.walk.D=function(a,B){

  N=length(a)
  b=array(0,N)
  S=0
  b=1-2*a
  e=array(0,floor(N/B))
  for (j in 1:floor(N/B)){		
    for (i in 1:B){
        k=1:i
		S[i]=sum(b[(j-1)*B+k])
    }
    e[j]=e[j]+sum(S==0)
	}
	
	result=list(e=e)
	return(result)
}

Try the CryptRndTest package in your browser