# create some prior distributions
p0 <- prior(distribution = "point", parameters = list(location = 0))
p1 <- prior_PET(distribution = "normal", parameters = list(mean = 0, sd = 1))
is.prior(p0)
is.prior.simple(p0)
is.prior.point(p0)
is.prior.PET(p0)
is.prior(p1)
is.prior.simple(p1)
is.prior.point(p1)
is.prior.PET(p1)
Run the code above in your browser using DataLab