R/get-sd.r

In poissonconsulting/jaggernaut: Bayesian Analyses using 'JAGS'

Defines functions get_sd.categorical get_sd.continuous get_sd

get_sd <- function(x) {  
  UseMethod("get_sd", x)
}

get_sd.continuous <- function(object) {
  return (object$sd)
}

get_sd.categorical <- function(object) {  
  return (NA)
}