prior: Calculates the Prior Distribution for Metropolis-MCMC
In weibull4: Fits Data into 4-Parameters Weibull Distribution

Description Usage Arguments Value Author(s) References Examples

View source: R/weibull4.r

This is an internal function of the Weibull4 package

1	prior(param)

param

A vector with shape, scale, location, area and SD parameters

A vector with prior distribution for Metropolis-MCMC

Florian Hartig - Theoretical Ecology

https://theoreticalecology.wordpress.com/2010/09/17/metropolis-hastings-mcmc-in-r/

function (param)
{
    shape <- param[1]
    scale <- param[2]
    loc <- param[3]
    area <- param[4]
    sd <- param[5]
    shapeprior <- dunif(shape, min = 1, max = 5, log = T)
    scaleprior <- dnorm(scale, sd = scale/2, log = T)
    locprior <- dunif(loc, min = 1, max = loc * 2, log = T)
    areaprior <- dunif(area, min = area/2, max = area * 2, log = T)
    sdprior <- dunif(sd, min = 1, max = sd * 2, log = T)
    return(shapeprior + scaleprior + locprior + areaprior + sdprior)
  }