I wrote the function that uses the runs test to access the quality of RNG. Is there a way to write it without "if" and "for"?
u=runif(10,0,1)
runs.test=function(u){
x=(u<0.5)
x=as.numeric(x)
count=1;
for (i in 1:(length(x)-1)){
if (x[i]==x[i+1]){
count=count;
}else{
count=count+1;
}
}
return(count);
}
Aucun commentaire:
Enregistrer un commentaire