File: processgamma.R

package info (click to toggle)
r-cran-sparr 2.3-16-2
  • links: PTS, VCS
  • area: main
  • in suites: trixie
  • size: 884 kB
  • sloc: makefile: 2
file content (18 lines) | stat: -rw-r--r-- 492 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
processgamma <- function(gamma.scale,pds){
  if(length(gamma.scale)==1){
    if(is.numeric(gamma.scale)&&gamma.scale>0){
      gamma <- gamma.scale
    } else if(gamma.scale=="geometric"){
      gamma <- exp(mean(log(pds^(-0.5))))
    } else {
      gamma <- 1
      warning("invalid 'gamma.scale' value -- assuming gamma=1")
    }
  } else if(is.null(gamma.scale)){
    gamma <- 1
  } else {
    gamma <- 1
    warning("invalid 'gamma.scale' value -- assuming gamma=1")
  }
  return(gamma)
}