From 5c980ce78834c6cd59f783c4793644ec64b86d45 Mon Sep 17 00:00:00 2001
From: "Win Cowger, PhD" <wincowger@gmail.com>
Date: Fri, 1 Nov 2024 15:56:02 -0700
Subject: [PATCH] fix medoid naming

---
 R/manage_lib.R    | 8 ++++----
 man/manage_lib.Rd | 4 ++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/R/manage_lib.R b/R/manage_lib.R
index fc3c61df..b27f043d 100644
--- a/R/manage_lib.R
+++ b/R/manage_lib.R
@@ -155,7 +155,7 @@
 #' Israel).
 #'
 #' @export
-check_lib <- function(type = c("derivative", "nobaseline", "raw", "mediod",
+check_lib <- function(type = c("derivative", "nobaseline", "raw", "medoid",
                                "model"),
                       path = "system", condition = "warning") {
 
@@ -199,8 +199,8 @@ get_lib <- function(type = c("derivative",
     }
     
     if("medoid" %in% type){
-        message("Fetching mediod library...")
-        download.file("https://osf.io/download/yzscg/", destfile = file.path(lp, "mediod.rds"), mode = "wb")
+        message("Fetching medoid library...")
+        download.file("https://osf.io/download/yzscg/", destfile = file.path(lp, "medoid.rds"), mode = "wb")
     }
     
     if("model" %in% type){
@@ -237,7 +237,7 @@ load_lib <- function(type, path = "system") {
 #' @rdname manage_lib
 #'
 #' @export
-rm_lib <- function(type = c("derivative", "nobaseline", "raw", "mediod",
+rm_lib <- function(type = c("derivative", "nobaseline", "raw", "medoid",
                             "model"),
                    path = "system") {
   lp <- ifelse(path == "system",
diff --git a/man/manage_lib.Rd b/man/manage_lib.Rd
index 85243db0..5b939c11 100644
--- a/man/manage_lib.Rd
+++ b/man/manage_lib.Rd
@@ -8,7 +8,7 @@
 \title{Manage spectral libraries}
 \usage{
 check_lib(
-  type = c("derivative", "nobaseline", "raw", "mediod", "model"),
+  type = c("derivative", "nobaseline", "raw", "medoid", "model"),
   path = "system",
   condition = "warning"
 )
@@ -22,7 +22,7 @@ get_lib(
 load_lib(type, path = "system")
 
 rm_lib(
-  type = c("derivative", "nobaseline", "raw", "mediod", "model"),
+  type = c("derivative", "nobaseline", "raw", "medoid", "model"),
   path = "system"
 )
 }