===================================================================
RCS file: /cvs/ext/extinction_risk_1.R,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- ext/extinction_risk_1.R	2015/06/25 15:23:44	1.5
+++ ext/extinction_risk_1.R	2015/07/02 06:51:04	1.6
@@ -1,5 +1,5 @@
 # extinction_risk_1.R, ver. 1.6 2015/6/24
-# $Id: extinction_risk_1.R,v 1.5 2015/06/25 15:23:44 hako Exp $
+# $Id: extinction_risk_1.R,v 1.6 2015/07/02 06:51:04 hako Exp $
 #
 # Author: Hiroshi Hakoyama <hako@affrc.go.jp>
 # Copyright (c) 2013-2015 Hiroshi Hakoyama <hako@affrc.go.jp>, All rights reserved.
@@ -145,6 +145,7 @@ ext1 <- function(dat, t = 100, ne = 1, alpha = 0.05, v
   High.CL.Gpsi <- 1 / (1 + exp(- hh - qnorm(1 - alpha / 2) * sqrt(var.H)))
   if (verbose == TRUE) {
     results <- list(ne = ne, t = t, verbose = verbose,
+      xd = xd,
       Growth.rate = mu,
       Low.CL.mu = Low.CL.mu,
       High.CL.mu = High.CL.mu,