pr_extinct function

Calculate (quasi-)extinction risk for a simulateobject