R/getpar.R

Defines functions `getpar`

`getpar` <-
function(typ, p1 = NA, p2 = p1, c = FALSE) {
  if (c) {
    p1p2.c(typ,p1,p2)
    }
  else {
    p1p2.a2(typ,p1,p2)
    }
  }

Try the adaptTest package in your browser

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

adaptTest documentation built on Oct. 6, 2023, 5:08 p.m.