From c5d9c1e0fdd3044c5d2b1759989f3777cfffa0f4 Mon Sep 17 00:00:00 2001
From: Unknown <30277794+atusy@users.noreply.github.com>
Date: Mon, 19 Nov 2018 00:58:10 +0900
Subject: [PATCH] hotfix

---
 R/find_centers.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/find_centers.R b/R/find_centers.R
index 667b636..1c93dd5 100644
--- a/R/find_centers.R
+++ b/R/find_centers.R
@@ -43,7 +43,7 @@ find_centers <- function(
       .tmp = is.finite(map),
       map_est =
         pkint * lsfit(pkint[.tmp], map[.tmp], w[.tmp], intercept = FALSE)$coef,
-      map_fnite = NULL, 
+      .tmp = NULL, 
       pi_L = qnbinom(0.005, map_est, 0.5),
       pi_H = qnbinom(0.995, map_est + 1, 0.5)
     )