diff options
author | Naeem Model <me@nmode.ca> | 2023-06-21 06:17:43 +0000 |
---|---|---|
committer | Naeem Model <me@nmode.ca> | 2023-06-21 06:17:43 +0000 |
commit | 9d7b542a1eb1eead875ad7f939936e4d8ac83145 (patch) | |
tree | 0412b0f36951698aadaa82ef632035397aafdc89 /R/WP_unknown.R | |
parent | 9c1a5668803e735f034700c55028ffc0146f1e93 (diff) |
Remove input args from output lists
Diffstat (limited to 'R/WP_unknown.R')
-rw-r--r-- | R/WP_unknown.R | 4 |
1 files changed, 2 insertions, 2 deletions
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 } } |