Displaying 2 results from an estimated 2 matches for "amptyp".
Did you mean:
amptjp
2000 May 07
1
Problem with match.arg() (PR#536)
..., "
<environment: 1400f55c8>
$"sum(rpois(ncloudsbin, sensitivity * intensityfromcloud))"
<environment: 1400f53e8>
$"rpois(ncloudsbin, sensitivity * intensityfromcloud)"
<environment: 1400f5168>
$"intensityfromcloud(ncb, intensityfromcloud, exptime, amptype)"
<environment: 1400f4c68>
$"ramp(ncloudsbin, amptype)"
<environment: 1400f4920>
$"qamp(runif(n), type)"
<environment: 1400ebdc0>
$"match.arg(type)"
<environment: 1400e97f0>
$"all(arg == choices)"
<environment: 140e2d740&g...
2000 May 23
1
Random number generation problem (PR#554)
...pe))
else return(rep(1, n))
}
...to generate random numbers. I think there might be something wrong
with runif, possibly the same problem as rpois had.
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 ma...