Displaying 2 results from an estimated 2 matches for "intensityfromcloud".
2000 May 07
1
Problem with match.arg() (PR#536)
...ronment: 140e187f0>
$"FUN(newX[, i], ...)"
<environment: 1404b6608>
$"apply(cbind(-as.integer(numberofbins/2):as.integer(numberofbins/2)), "
<environment: 1404b5460>
$"FUN(newX[, i], ...)"
<environment: 1400f6798>
$"photonsdetectedbin(ncb, intensityfromcloud(ncb, intensityfromcloud, "
<environment: 1400f55c8>
$"sum(rpois(ncloudsbin, sensitivity * intensityfromcloud))"
<environment: 1400f53e8>
$"rpois(ncloudsbin, sensitivity * intensityfromcloud)"
<environment: 1400f5168>
$"intensityfromcloud(ncb, inten...
2000 May 23
1
Random number generation problem (PR#554)
...{
if(type == "point")
return(qamp(runif(n), type))
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 ca...