Displaying 4 results from an estimated 4 matches for "ncloudsbin".
2000 May 07
1
Problem with match.arg() (PR#536)
...y(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, intensityfromcloud, exptime, amptype)"
<environment: 1400f4c68>
$"ramp(ncloudsbi...
2000 Feb 15
1
rpois gives a large number repeatedly (PR#439)
...like that does happen, but this really
strange because a poisson distribution with a parameter of 3 shouldn't see the
number 1932 very often, but the same, incredibly high number is drawn
repeatedly.
These are the two relevant functions, the latter somewhat expanded for debugging
purposes.
ncloudsbin <- function(binno, ntotalclouds, numberofbins = 100, linewidth =
numberofbins / 6)
return(ntotalclouds * dnorm(binno, sd = linewidth))
photonsincidenttodetectorbin <- function(binno, ntotalclouds,
avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth =
numberofbins /...
2000 May 23
1
Random number generation problem (PR#554)
...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 called a lot. As you can see...
2000 Feb 11
2
R hangs sometimes and crashes (PR#429)
Full_Name: Kjetil Kjernsmo
Version: 0.65.1
OS: Digital UNIX 4.0
Submission from: (NULL) (129.240.28.172)
I have the following R code:
ncloudsbin <- function(binno, ntotalclouds, numberofbins = 100, linewidth =
numberofbins / 6)
return(ntotalclouds * dnorm(binno, sd = linewidth))
photonsincidenttodetectorbin <- function(binno, ntotalclouds,
avgphotonfromcloud, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth =
numberofbins /...