Displaying 1 result from an estimated 1 matches for "init_seed".
1997 Nov 24
0
R-alpha: random number generator -- S-plus's
...$echo 'x -' extracting 'runif-tst.S' '(text)'
sed 's/^X//' << 'SHAR_EOF' > 'runif-tst.S' &&
##SunOS4: print(dyn.load2("/u/maechler/C/C-for-S/Runif.o"))
print(dyn.load("/u/maechler/C/C-for-S/Runif.o"))
X.C("Init_seed",
X Cval = as.integer(12345),
X Tval = as.integer(987654321))
str(.C("Get_seed", Cval = integer(1), Tval = integer(1)))
X
rU_ numeric(10)
for(i in 1:10) rU[i] <- unlist(.C("Runif", numeric(1)))
rU
str(.C("Get_seed", Cval = integer(1), Tval = integer(1)))
X...