Displaying 1 result from an estimated 1 matches for "lastamps".
Did you mean:
last_mbs
2000 May 23
1
Random number generation problem (PR#554)
...More details:
I'm calling this function a number of times through a function
intensityfromcloud <- function(ncloudsbin, cloudintensity, amptype,
exptime, ...)
{
amps <- ramp(ncloudsbin, amptype)
write(c(max(amps), sum(amps), sum(amps - 1)),
"lastamps.dat", ncolumns=3, append=T)
return(cloudintensity * exptime * amps)
}
...that is called a lot. As you can see, I'm writing the maximum
(among other things) of the generated numbers to file
(this is a preliminary hack, for a (quite unrelated) sanity
check I'm running).
Now, it tur...