Remove input args from output lists

[Rnaught] / R / WP_known.R

diff --git a/R/WP_known.R b/R/WP_known.R
index 6b0e2eaaf08dfae932cc9a074d3ea33a51bd3247..563b7ae3ab9e3ebb6267ce1e19208336d35cc57a 100644 (file)
--- a/R/WP_known.R
+++ b/R/WP_known.R
@@ -19,5 +19,5 @@ WP_known <- function(NT, p) {
     }
 
     Rhat <- sum(NT[-1]) / sum(mu_t)
-       return(list(Rhat=Rhat))
+       return(Rhat)
 }