From 0372b50301c746ea9bb0ae3ea31ad48baa94a3c8 Mon Sep 17 00:00:00 2001
From: Walmes Zeviani <walmes@ufpr.br>
Date: Thu, 7 Jan 2016 16:52:20 -0200
Subject: [PATCH] Fix unit test error about no sqrt link function.
---
R/mc_link_function.R | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/R/mc_link_function.R b/R/mc_link_function.R
index 4933486..79db862 100644
--- a/R/mc_link_function.R
+++ b/R/mc_link_function.R
@@ -53,10 +53,10 @@ mc_link_function <- function(beta, X, offset, link) {
if (!is.null(offset))
assert_that(noNA(offset))
link_name <- c("logit", "probit", "cauchit", "cloglog", "loglog",
- "identity", "log", "1/mu^2", "inverse")
+ "identity", "log", "sqrt", "1/mu^2", "inverse")
link_func <- c("mc_logit", "mc_probit", "mc_cauchit", "mc_cloglog",
- "mc_loglog", "mc_identity", "mc_log", "mc_invmu2",
- "mc_inverse")
+ "mc_loglog", "mc_identity", "mc_log", "mc_sqrt",
+ "mc_invmu2", "mc_inverse")
names(link_func) <- link_name
if (!link %in% link_name) {
stop(gettextf(paste0("%s link not recognised. ",
--
GitLab