From 30efc3cd1a66cf67b5e33fb56fdf8ab79fee51a5 Mon Sep 17 00:00:00 2001
From: Daniel <mail@danielluedecke.de>
Date: Sun, 1 Sep 2024 12:45:34 +0200
Subject: [PATCH] typo

---
 R/link_function.R | 2 +-
 R/link_inverse.R  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/link_function.R b/R/link_function.R
index 8be6c32b7..282cb818c 100644
--- a/R/link_function.R
+++ b/R/link_function.R
@@ -491,7 +491,7 @@ link_function.cglm <- function(x, ...) {
   method <- parse(text = safe_deparse(x$call))[[1]]$method
 
   if (!is.null(method) && method == "clm") {
-    link <- "identiy"
+    link <- "identity"
   }
   stats::make.link(link = link)$linkfun
 }
diff --git a/R/link_inverse.R b/R/link_inverse.R
index 2724691c3..7c9e46632 100644
--- a/R/link_inverse.R
+++ b/R/link_inverse.R
@@ -463,7 +463,7 @@ link_inverse.cglm <- function(x, ...) {
   method <- parse(text = safe_deparse(x$call))[[1]]$method
 
   if (!is.null(method) && method == "clm") {
-    link <- "identiy"
+    link <- "identity"
   }
   stats::make.link(link = link)$linkinv
 }