Displaying 1 result from an estimated 1 matches for "lensedprofile".
2000 Feb 11
2
R hangs sometimes and crashes (PR#429)
...tedbin <- function(binno, ntotalclouds, avgphotonfromcloud,
sensitivity, ampmode = 1, ampmean = 2, numberofbins = 100, linewidth =
numberofbins / 6)
return(rpois(1, sensitivity * photonsincidenttodetectorbin(binno,
ntotalclouds, avgphotonfromcloud, ampmode, ampmean, numberofbins, linewidth)))
lensedprofile <- function(ntotalclouds, avgphotonfromcloud, sensitivity, ampmode
= 1, ampmean = 2, numberofbins = 100, linewidth = numberofbins / 6)
return(apply(cbind(x1 =
-as.integer(numberofbins/2):as.integer(numberofbins/2)), 1, photonsdetectedbin,
ntotalclouds, avgphotonfromcloud, sensitivity, ampmode,...