R/getModelName.R

getModelName <-
function  (mutype,ptype) {
  s <- getMuModelName(mutype)
  if (ptype=="p.HW") {
    s <- paste(s,"HW")
  }
  s
}

Try the fitTetra package in your browser

Any scripts or data that you put into this service are public.

fitTetra documentation built on May 2, 2019, 3:52 p.m.