===================================================================
RCS file: /cvs/ext/extinction_risk_1.R,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -p -r1.1 -r1.2
--- ext/extinction_risk_1.R	2015/05/25 11:45:07	1.1
+++ ext/extinction_risk_1.R	2015/05/25 12:21:55	1.2
@@ -60,7 +60,6 @@
 # 61:115-143, 1991.
 #
 
-# library(pracma)
 ext1 <- function(dat, t = 100, ne = 1, alpha = 0.05, verbose = FALSE) {
   yr <- ts(dat[, 1], start = c(dat[, 1][1])) # Year
   ps <- ts(dat[, 2], start = c(dat[, 1][1])) # Population size