Displaying 2 results from an estimated 2 matches for "congrval".
Did you mean:
con_val
1997 Nov 24
0
R-alpha: random number generator -- S-plus's
...ot;Get_seed", Cval = integer(1), Tval = integer(1)))
X
Set.seed <- function(Cval = 12345, Tval =987654321)
{
X ## Purpose: Initialize my implementation of the 'S' RNG (following Ripley)
X ## -------------------------------------------------------------------------
X ## Arguments: Congrval and Tausval, the 2 long integers [== seed]
X ## -------------------------------------------------------------------------
X ## Author: Martin Maechler, Date: 9 May 94, 12:04
X if(!is.loaded(C.symbol("Init_seed")))
X dyn.load("/u/maechler/C/C-for-S/Runif.o")
X invisible(...
1997 Sep 15
0
R-alpha: set.seed(.) [was 'compatibility']
...er, I have found out the following which should suffice :
1) Only .Random.seed[4:6] are varyied by set.seed, i.e.,
after set.seed(i), .Random.seed always is
1 2 3 4 5 6 7 8 9 10 11 12
[1] 21 14 49 * * * 32 22 36 23 28 3
X4 X5 X6
Which means that only the 'congrval' {Venables & Ripley, 2nd ed., p.166-167}
is varied
2) X4 is always == 16*((i+2) %% 4)
X5 takes (all) values in 0:63 [also with some periodicity]
X6 takes the values of 0:3
3) set.seed(i) <==> set.seed(i + n*1024) for all integers n, i
4) { set.seed(i) ; i \in {in...