From 9d7b542a1eb1eead875ad7f939936e4d8ac83145 Mon Sep 17 00:00:00 2001
From: Naeem Model <me@nmode.ca>
Date: Wed, 21 Jun 2023 06:17:43 +0000
Subject: Remove input args from output lists

---
 R/WP_unknown.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/WP_unknown.R')

diff --git a/R/WP_unknown.R b/R/WP_unknown.R
index c5b0a35..ebb7cc7 100644
--- a/R/WP_unknown.R
+++ b/R/WP_unknown.R
@@ -36,8 +36,8 @@ WP_unknown <- function(NT, B=100, shape.max=10, scale.max=10, tol=0.999) {
             p <- diff(pgamma(0:range.max, shape=shape[i], scale=scale[j]))
             p <- p / sum(p)
             mle <- WP_known(NT, p)
-            resLL[i,j] <- computeLL(p, NT, mle$R)
-            resR0[i,j] <- mle$R
+            resLL[i,j] <- computeLL(p, NT, mle)
+            resR0[i,j] <- mle
         }
     }
 	
-- 
cgit v1.2.3