From dfa063e62aec1c5fd1e11a81b6eedf76cdcb8b5f Mon Sep 17 00:00:00 2001
From: Justin Moy <jmmoy@bu.edu>
Date: Mon, 26 Sep 2022 15:06:45 -0400
Subject: [PATCH 1/5] Added new example_dataset and used it in the example for
 the euclideanDist function

---
 .Rbuildignore           |   4 ++++
 .gitignore              |   4 ++++
 DESCRIPTION             |   4 +++-
 NAMESPACE               |   1 +
 R/data.R                |  11 +++++++++++
 data-raw/example_data.R |   6 ++++++
 data/example_data.rda   | Bin 0 -> 2009 bytes
 man/example_data.Rd     |  20 ++++++++++++++++++++
 8 files changed, 49 insertions(+), 1 deletion(-)
 create mode 100644 R/data.R
 create mode 100644 data-raw/example_data.R
 create mode 100644 data/example_data.rda
 create mode 100644 man/example_data.Rd

diff --git a/.Rbuildignore b/.Rbuildignore
index 88b0533..b6d0c82 100644
--- a/.Rbuildignore
+++ b/.Rbuildignore
@@ -1,3 +1,5 @@
+^renv$
+^renv\.lock$
 ^LICENSE\.md$
 ^.*\.Rproj$
 ^\.Rproj\.user$
@@ -6,3 +8,5 @@
 ^docs$
 ^pkgdown$
 ^\.lintr$
+^renv*$
+^data-raw$
diff --git a/.gitignore b/.gitignore
index 0dddc4b..6f89102 100644
--- a/.gitignore
+++ b/.gitignore
@@ -40,3 +40,7 @@ vignettes/*.pdf
 .Renviron
 inst/doc
 docs
+
+# Local libraries
+.Rprofile
+renv/
diff --git a/DESCRIPTION b/DESCRIPTION
index e2161da..3845503 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -15,10 +15,12 @@ Encoding: UTF-8
 biocViews: Clustering
 LazyData: false
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.1.1
+RoxygenNote: 7.2.1
 Suggests: 
     knitr,
     rmarkdown,
     testthat (>= 3.0.0)
 Config/testthat/edition: 3
 VignetteBuilder: knitr
+Depends: 
+    R (>= 2.10)
diff --git a/NAMESPACE b/NAMESPACE
index 01843dc..6bd620a 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -1,3 +1,4 @@
 # Generated by roxygen2: do not edit by hand
 
+export(euclideanDist)
 export(hello)
diff --git a/R/data.R b/R/data.R
new file mode 100644
index 0000000..be00067
--- /dev/null
+++ b/R/data.R
@@ -0,0 +1,11 @@
+#' Example dataset
+#'
+#' A dataset containing a matrix with two columns that were generated
+#' with a random normal distribution with a mean of 0 and stdev of 1. 
+#'
+#' @format A matrix with 100 rows and 2 columns
+#' @keywords datasets
+#' @usage data("example_data")
+#' @examples
+#' data("example_data")
+"example_data"
\ No newline at end of file
diff --git a/data-raw/example_data.R b/data-raw/example_data.R
new file mode 100644
index 0000000..24efc73
--- /dev/null
+++ b/data-raw/example_data.R
@@ -0,0 +1,6 @@
+## code to prepare `example_data` dataset goes here
+set.seed(123)
+a <- rnorm(100)
+b <- rnorm(100)
+example_data <- cbind(a, b)
+usethis::use_data(example_data, overwrite = TRUE)
diff --git a/data/example_data.rda b/data/example_data.rda
new file mode 100644
index 0000000000000000000000000000000000000000..c16d4321456ba9323c64133d9a4e2589c279122e
GIT binary patch
literal 2009
zcmV;~2PXJJT4*^jL0KkKS@m|udH?}3fB*mg|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0
z|NsC0|NqbgeqQIg?A=Cb+q?jiYI#jG{X%|}dT5(b>5@H0(ionjA(|l3iKc@?BPM|L
z4K)2mP<c#Eq-pADqiSRZfuZUHO+8Og(0XW%7|MEs)E}w_O{w~xrcsgVY@VoTk(0>U
zp$W2$sf55IM%2ceQK)SbX)+Bkjj4#qgv|z1O&*O*j3YGw$)+RJ#LXEew1mc?={+ER
zq6}(ahpFWTnqVW*4Kql39-%!$M%2O#i7}8pA)%?7X&6sX4=Lyg>S)surkOMYOloFH
znx2ugXvEVL$n_qYnr%UmgfZ%dCzNCuMklF}rU=G?FbR;*^q4fBqfG-xpacMD6B+;j
zOf&!h&;TX?1i%0Q0Wbgn6C(f`002w^FatmU000DJFaQ8V&_PMGCPAarXvhYDX{Hk(
zG#ME*8Z>AP4XL4!G&Il+G|<pwWO^Z>15FH>01X2WXnKtRG#L!i0MKX}WGNK|jadek
zWGW#GQ<`L~3gfH-0^y}WNCXCf0-VG#3^j59fKx!RZ$0*LiHsyvNKg<TE#~;_u!#@^
zK~l{s`SnS!5$=AXK>$6ftFQk)cJW#!AH|ggYUR`jyJ-1m2(Xmm2m;1cLB<ij-v>%w
z(F0t1MJL$_u~%`7`{ZoJW0@BWM5*DHh9jXXjv|p}>BJ@$b#fpAALbP-ln*3c;iO3U
z#ZWfARJ8AhC}0^>lN_E6mJw$f@0R9UyvSMn=ZEh!=Q)^%ND*N*ICKq_1#cEEnmVw#
zs#EMtj(I{&#Ttb#tk5p{#HCY9(mm{=Z-jaeIZ@)BOh$PE4KFb`9x$iG9x3i|CJ`cC
zz2R|(SV})urJhy6lsqru-b~l{wYZH5q{3TJAoNRQE8lh5*F0VR4l*Y_U+VOP8grkf
zmb_dGmzeb{6Q^eomv(fWm}D>a<3&-v3f?%Q{q8E_zXk!2c+<f@Dv&jRUCYc=1I7ak
zOW}(Od7nHHiX{t`matzS{7!`lRA{UoROP~I76kp797h?F5Qrcep7D7`KGc+UCOLVc
z8pF^CvNdDaP=K#Ew43IVl2HzJo(VeleR?#(1YxcFyFN}7*UpOrQ63{=`eyR3QPA$P
zVX;}^cwa*Jr4DZ@&xCXgIB+!oWKQh<|5^xG{=<hNL>f>cs}v_6VdCVoKykIST36X?
zH4#I}QwDL6(1_(Uy%RPWl}PnfTJZsuMLT1RZ06h)b1n!{7961g9_*=VIE15p%uX-n
zef%T-yW2q|ADL&@(c|11bR%Veb?~kv)@XGGii`hQ@67|>m=#XNzPT93D_3ao6t{vc
z3u57;Yr=J=D#`Fbph4MSSQWS;qXHW^A;3jji&dK$%Oz<DucTm<S|Alz^7v<yMApAz
z`;}20Hhp4EFjY^xxf%Kag<{jI2(fbNL3d<_|7;&Awc@UM5>>T3WnO?`GB_CJQre9~
z{)<ckE|&<Fentq?&ibpv>2xo(uDF@QS;INn1i77FMxcOel)Z=p=;lhPDP|h+dK*?_
zZWEg5Ub4Pj)ZR+7^>D%4L7ph-uaz+$BxEt$88hhtjZ;xDUC@3!zBkZNI-RVx_a?ii
zGPdgiJY6Eb@Q4yf(=Tc-wBQvjZOcO1-ZZa01mizF-hPeEc~#@4feFWF5p#D%Z1w9m
z*%g7Xv9(!GqsQajvZ-E_+nCP8Bubdn8<es|&kyB=hwu3lltNZb>^1W`CW?9+xYiWH
zMW$kGYuWHaUMbo-3MA7-+B;h||8-0p2<`*Hr?n|IU?z@3ULlh3xZ*`xLw58M?{REP
zb4WmqcVTsVpH6>{7LSAbxgg$v(L|e!7fiY|&;6|6qkI<V4}rEOMckMsD;CH-fx09G
zJAn~k^V@N}ZmCT`3IOa@u9wIXJ(nJax{=a+$DsK-P0gd}5wghyqeo={sgQ_WhMZ{T
z_5>@T<ps5v+L7NTe<{}Io2WYaoSv;gXzF>K5HLldKj;=;C5wBE_|7Y^GFUYu;kl&=
z#xjCG0O94@7HG5nU~RYYIr66#XILjj)_6=YT?{~P=WCNfs1&T)vpPbHEM3Id>NHBP
zACtexCRk6Z4>1U&ZRdeDv~v9~x6(j>n`gVUo3*1I&9`pJ4?kW_oz3q-@OzGyZl_xr
z9_cs5Pisj+wbllSGm9|J<7$l6>M!X+w+!Chr4;OVFjxo1PI847(!dP(u$N+IX2nQv
z9YLotTikkV1@<9&pm}BTo#TVes?WPuBq;-sxafW8IA5(MmyU-rP}*qhq<T3*^=4IU
zNkPp{w>?yH(I{iYl^HXHo_CEAGR>z>n573sQh@!3cxL)Dyou|AUpZS1UC|uCGU5&<
zf7bQT-iS#qPYo{w#1nzl5tb=JrGbJHQEpuEsuki8!0US|2S~nRSFsk9LqzOa%=JQe
zR(q83XeLtpsJO{fL+{QG@O7lZh-e-YdUv>)`vg@8A`ws;;~YrlzLS`ANiO@C@-;><
z{L70mMxdn;5X0L(hV+c9m*W}GWKxu_76`c3R0vi^YE0l^%-zh|!bH>5rQvp@74jlN
r(9&uag<tY9hjH<2I0tLkgiyYo77jK}8CIm||KjdQrwS4tuGsHDc^0nq

literal 0
HcmV?d00001

diff --git a/man/example_data.Rd b/man/example_data.Rd
new file mode 100644
index 0000000..e724347
--- /dev/null
+++ b/man/example_data.Rd
@@ -0,0 +1,20 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/data.R
+\docType{data}
+\name{example_data}
+\alias{example_data}
+\title{Example dataset}
+\format{
+A matrix with 100 rows and 2 columns
+}
+\usage{
+data("example_data")
+}
+\description{
+A dataset containing a matrix with two columns that were generated
+with a random normal distribution with a mean of 0 and stdev of 1.
+}
+\examples{
+data("example_data")
+}
+\keyword{datasets}

From e49156c12c9b6a6ec38365d35338d17406e9d7a2 Mon Sep 17 00:00:00 2001
From: Justin Moy <jmmoy@bu.edu>
Date: Mon, 26 Sep 2022 16:19:00 -0400
Subject: [PATCH 2/5] Add NEWS.md

---
 NEWS.md | 6 ++----
 1 file changed, 2 insertions(+), 4 deletions(-)

diff --git a/NEWS.md b/NEWS.md
index 4cd8ae2..ddbdbcf 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,5 +1,3 @@
-# Changes in Version 0.0.1 (2022-05-08)
-* Created package
-* Added Hello World function
-* Added documentation, unit tests, and vignettes
+# DevelExample 0.1.0
+
 * Added a `NEWS.md` file to track changes to the package.

From d601cecbc95bb5b22779ca19d5131eb69714b3db Mon Sep 17 00:00:00 2001
From: Justin Moy <jmmoy@bu.edu>
Date: Mon, 26 Sep 2022 16:23:11 -0400
Subject: [PATCH 3/5] Finished tutorial

---
 DESCRIPTION                     |   4 +-
 R/data.R                        |   4 +-
 R/distance.R                    |  31 ++
 _pkgdown.yml                    |   4 +
 man/euclideanDist.Rd            |  26 ++
 renv.lock                       | 553 ++++++++++++++++++++++++++++++++
 tests/testthat.R                |   8 +
 tests/testthat/test-euclidean.R |   9 +
 vignettes/DevelExample.Rmd      |  12 +
 9 files changed, 647 insertions(+), 4 deletions(-)
 create mode 100644 R/distance.R
 create mode 100644 man/euclideanDist.Rd
 create mode 100644 renv.lock
 create mode 100644 tests/testthat/test-euclidean.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 3845503..ad4ea28 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: DevelExample
 Title: A Basic R Package to Demonstrate a Cycle of Code Development
-Version: 0.0.1
+Version: 0.1.0
 Authors@R: 
     person(given = "Joshua",
            family = "Campbell",
@@ -19,7 +19,7 @@ RoxygenNote: 7.2.1
 Suggests: 
     knitr,
     rmarkdown,
-    testthat (>= 3.0.0)
+    testthat
 Config/testthat/edition: 3
 VignetteBuilder: knitr
 Depends: 
diff --git a/R/data.R b/R/data.R
index be00067..394dcb5 100644
--- a/R/data.R
+++ b/R/data.R
@@ -1,11 +1,11 @@
 #' Example dataset
 #'
 #' A dataset containing a matrix with two columns that were generated
-#' with a random normal distribution with a mean of 0 and stdev of 1. 
+#' with a random normal distribution with a mean of 0 and stdev of 1.
 #'
 #' @format A matrix with 100 rows and 2 columns
 #' @keywords datasets
 #' @usage data("example_data")
 #' @examples
 #' data("example_data")
-"example_data"
\ No newline at end of file
+"example_data"
diff --git a/R/distance.R b/R/distance.R
new file mode 100644
index 0000000..73be69b
--- /dev/null
+++ b/R/distance.R
@@ -0,0 +1,31 @@
+#' @title Euclidean distance
+#' @description Calculates Euclidean distance between two vectors. An error will be
+#' given if NAs are present in either vector.
+#'
+#' @param a The first vector to use in the distance calculation.
+#' @param b The second vector to use in the distance calculation.
+#' @param verbose Boolean. If \code{TRUE}, a message will be printed. Default \code{TRUE}.
+#' @return A numeric value of a distance
+#' @examples
+#' data(example_data)
+#' euclideanDist(example_data[, 1], example_data[, 2], verbose = FALSE)
+#' @export
+euclideanDist <- function(a, b, verbose = FALSE) {
+  if (isTRUE(verbose)) {
+    message("Calculating distance ...")
+  }
+
+  # Check validity of data
+  .check_data(a)
+  .check_data(b)
+
+  # Perform calculation
+  res <- sqrt(sum((a - b)^2))
+  return(res)
+}
+
+.check_data <- function(input) {
+  if (any(is.na(input))) {
+    stop("'input' must not contain NAs")
+  }
+}
diff --git a/_pkgdown.yml b/_pkgdown.yml
index e69de29..d71acfb 100644
--- a/_pkgdown.yml
+++ b/_pkgdown.yml
@@ -0,0 +1,4 @@
+url: ~
+template:
+  bootstrap: 5
+
diff --git a/man/euclideanDist.Rd b/man/euclideanDist.Rd
new file mode 100644
index 0000000..ed10e85
--- /dev/null
+++ b/man/euclideanDist.Rd
@@ -0,0 +1,26 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/distance.R
+\name{euclideanDist}
+\alias{euclideanDist}
+\title{Euclidean distance}
+\usage{
+euclideanDist(a, b, verbose = FALSE)
+}
+\arguments{
+\item{a}{The first vector to use in the distance calculation.}
+
+\item{b}{The second vector to use in the distance calculation.}
+
+\item{verbose}{Boolean. If \code{TRUE}, a message will be printed. Default \code{TRUE}.}
+}
+\value{
+A numeric value of a distance
+}
+\description{
+Calculates Euclidean distance between two vectors. An error will be
+given if NAs are present in either vector.
+}
+\examples{
+data(example_data)
+euclideanDist(example_data[,1], example_data[,2], verbose = FALSE)
+}
diff --git a/renv.lock b/renv.lock
new file mode 100644
index 0000000..fb1332b
--- /dev/null
+++ b/renv.lock
@@ -0,0 +1,553 @@
+{
+  "R": {
+    "Version": "4.2.1",
+    "Repositories": [
+      {
+        "Name": "BioCsoft",
+        "URL": "https://bioconductor.org/packages/3.15/bioc"
+      },
+      {
+        "Name": "BioCann",
+        "URL": "https://bioconductor.org/packages/3.15/data/annotation"
+      },
+      {
+        "Name": "BioCexp",
+        "URL": "https://bioconductor.org/packages/3.15/data/experiment"
+      },
+      {
+        "Name": "BioCworkflows",
+        "URL": "https://bioconductor.org/packages/3.15/workflows"
+      },
+      {
+        "Name": "BioCbooks",
+        "URL": "https://bioconductor.org/packages/3.15/books"
+      },
+      {
+        "Name": "CRAN",
+        "URL": "https://cran.rstudio.com"
+      }
+    ]
+  },
+  "Packages": {
+    "R6": {
+      "Package": "R6",
+      "Version": "2.5.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "470851b6d5d0ac559e9d01bb352b4021",
+      "Requirements": []
+    },
+    "base64enc": {
+      "Package": "base64enc",
+      "Version": "0.1-3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "543776ae6848fde2f48ff3816d0628bc",
+      "Requirements": []
+    },
+    "brio": {
+      "Package": "brio",
+      "Version": "1.1.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "976cf154dfb043c012d87cddd8bca363",
+      "Requirements": []
+    },
+    "bslib": {
+      "Package": "bslib",
+      "Version": "0.4.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "be5ee090716ce1671be6cd5d7c34d091",
+      "Requirements": [
+        "cachem",
+        "htmltools",
+        "jquerylib",
+        "jsonlite",
+        "memoise",
+        "rlang",
+        "sass"
+      ]
+    },
+    "cachem": {
+      "Package": "cachem",
+      "Version": "1.0.6",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "648c5b3d71e6a37e3043617489a0a0e9",
+      "Requirements": [
+        "fastmap",
+        "rlang"
+      ]
+    },
+    "callr": {
+      "Package": "callr",
+      "Version": "3.7.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "358689cac9fe93b1bb3a19088d2dbed8",
+      "Requirements": [
+        "R6",
+        "processx"
+      ]
+    },
+    "cli": {
+      "Package": "cli",
+      "Version": "3.4.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "0d297d01734d2bcea40197bd4971a764",
+      "Requirements": []
+    },
+    "crayon": {
+      "Package": "crayon",
+      "Version": "1.5.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "8dc45fd8a1ee067a92b85ef274e66d6a",
+      "Requirements": []
+    },
+    "desc": {
+      "Package": "desc",
+      "Version": "1.4.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "6b9602c7ebbe87101a9c8edb6e8b6d21",
+      "Requirements": [
+        "R6",
+        "cli",
+        "rprojroot"
+      ]
+    },
+    "diffobj": {
+      "Package": "diffobj",
+      "Version": "0.3.5",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "bcaa8b95f8d7d01a5dedfd959ce88ab8",
+      "Requirements": [
+        "crayon"
+      ]
+    },
+    "digest": {
+      "Package": "digest",
+      "Version": "0.6.29",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "cf6b206a045a684728c3267ef7596190",
+      "Requirements": []
+    },
+    "ellipsis": {
+      "Package": "ellipsis",
+      "Version": "0.3.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "bb0eec2fe32e88d9e2836c2f73ea2077",
+      "Requirements": [
+        "rlang"
+      ]
+    },
+    "evaluate": {
+      "Package": "evaluate",
+      "Version": "0.16",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "9a3d3c345f8a5648abe61608aaa29518",
+      "Requirements": []
+    },
+    "fansi": {
+      "Package": "fansi",
+      "Version": "1.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "83a8afdbe71839506baa9f90eebad7ec",
+      "Requirements": []
+    },
+    "fastmap": {
+      "Package": "fastmap",
+      "Version": "1.1.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "77bd60a6157420d4ffa93b27cf6a58b8",
+      "Requirements": []
+    },
+    "fs": {
+      "Package": "fs",
+      "Version": "1.5.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "7c89603d81793f0d5486d91ab1fc6f1d",
+      "Requirements": []
+    },
+    "glue": {
+      "Package": "glue",
+      "Version": "1.6.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "4f2596dfb05dac67b9dc558e5c6fba2e",
+      "Requirements": []
+    },
+    "highr": {
+      "Package": "highr",
+      "Version": "0.9",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "8eb36c8125038e648e5d111c0d7b2ed4",
+      "Requirements": [
+        "xfun"
+      ]
+    },
+    "htmltools": {
+      "Package": "htmltools",
+      "Version": "0.5.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "6496090a9e00f8354b811d1a2d47b566",
+      "Requirements": [
+        "base64enc",
+        "digest",
+        "fastmap",
+        "rlang"
+      ]
+    },
+    "jquerylib": {
+      "Package": "jquerylib",
+      "Version": "0.1.4",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "5aab57a3bd297eee1c1d862735972182",
+      "Requirements": [
+        "htmltools"
+      ]
+    },
+    "jsonlite": {
+      "Package": "jsonlite",
+      "Version": "1.8.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "d07e729b27b372429d42d24d503613a0",
+      "Requirements": []
+    },
+    "knitr": {
+      "Package": "knitr",
+      "Version": "1.40",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "caea8b0f899a0b1738444b9bc47067e7",
+      "Requirements": [
+        "evaluate",
+        "highr",
+        "stringr",
+        "xfun",
+        "yaml"
+      ]
+    },
+    "lifecycle": {
+      "Package": "lifecycle",
+      "Version": "1.0.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "25f74670fa7d3277fe3ad8c1712a699f",
+      "Requirements": [
+        "glue",
+        "rlang"
+      ]
+    },
+    "magrittr": {
+      "Package": "magrittr",
+      "Version": "2.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "7ce2733a9826b3aeb1775d56fd305472",
+      "Requirements": []
+    },
+    "memoise": {
+      "Package": "memoise",
+      "Version": "2.0.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "e2817ccf4a065c5d9d7f2cfbe7c1d78c",
+      "Requirements": [
+        "cachem",
+        "rlang"
+      ]
+    },
+    "pillar": {
+      "Package": "pillar",
+      "Version": "1.8.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "f2316df30902c81729ae9de95ad5a608",
+      "Requirements": [
+        "cli",
+        "fansi",
+        "glue",
+        "lifecycle",
+        "rlang",
+        "utf8",
+        "vctrs"
+      ]
+    },
+    "pkgconfig": {
+      "Package": "pkgconfig",
+      "Version": "2.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "01f28d4278f15c76cddbea05899c5d6f",
+      "Requirements": []
+    },
+    "pkgload": {
+      "Package": "pkgload",
+      "Version": "1.3.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "4b20f937a363c78a5730265c1925f54a",
+      "Requirements": [
+        "cli",
+        "crayon",
+        "desc",
+        "fs",
+        "glue",
+        "rlang",
+        "rprojroot",
+        "withr"
+      ]
+    },
+    "praise": {
+      "Package": "praise",
+      "Version": "1.0.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "a555924add98c99d2f411e37e7d25e9f",
+      "Requirements": []
+    },
+    "processx": {
+      "Package": "processx",
+      "Version": "3.7.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "f91df0f5f31ffdf88bc0b624f5ebab0f",
+      "Requirements": [
+        "R6",
+        "ps"
+      ]
+    },
+    "ps": {
+      "Package": "ps",
+      "Version": "1.7.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "8b93531308c01ad0e56d9eadcc0c4fcd",
+      "Requirements": []
+    },
+    "rappdirs": {
+      "Package": "rappdirs",
+      "Version": "0.3.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "5e3c5dc0b071b21fa128676560dbe94d",
+      "Requirements": []
+    },
+    "rematch2": {
+      "Package": "rematch2",
+      "Version": "2.1.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "76c9e04c712a05848ae7a23d2f170a40",
+      "Requirements": [
+        "tibble"
+      ]
+    },
+    "renv": {
+      "Package": "renv",
+      "Version": "0.15.5",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "6a38294e7d12f5d8e656b08c5bd8ae34",
+      "Requirements": []
+    },
+    "rlang": {
+      "Package": "rlang",
+      "Version": "1.0.6",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "4ed1f8336c8d52c3e750adcdc57228a7",
+      "Requirements": []
+    },
+    "rmarkdown": {
+      "Package": "rmarkdown",
+      "Version": "2.16",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "0f3eaa1547e2c6880d4de1c043ac6826",
+      "Requirements": [
+        "bslib",
+        "evaluate",
+        "htmltools",
+        "jquerylib",
+        "jsonlite",
+        "knitr",
+        "stringr",
+        "tinytex",
+        "xfun",
+        "yaml"
+      ]
+    },
+    "rprojroot": {
+      "Package": "rprojroot",
+      "Version": "2.0.3",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "1de7ab598047a87bba48434ba35d497d",
+      "Requirements": []
+    },
+    "sass": {
+      "Package": "sass",
+      "Version": "0.4.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "1b191143d7d3444d504277843f3a95fe",
+      "Requirements": [
+        "R6",
+        "fs",
+        "htmltools",
+        "rappdirs",
+        "rlang"
+      ]
+    },
+    "stringi": {
+      "Package": "stringi",
+      "Version": "1.7.8",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "a68b980681bcbc84c7a67003fa796bfb",
+      "Requirements": []
+    },
+    "stringr": {
+      "Package": "stringr",
+      "Version": "1.4.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "a66ad12140cd34d4f9dfcc19e84fc2a5",
+      "Requirements": [
+        "glue",
+        "magrittr",
+        "stringi"
+      ]
+    },
+    "testthat": {
+      "Package": "testthat",
+      "Version": "3.1.4",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "f76c2a02d0fdc24aa7a47ea34261a6e3",
+      "Requirements": [
+        "R6",
+        "brio",
+        "callr",
+        "cli",
+        "crayon",
+        "desc",
+        "digest",
+        "ellipsis",
+        "evaluate",
+        "jsonlite",
+        "lifecycle",
+        "magrittr",
+        "pkgload",
+        "praise",
+        "processx",
+        "ps",
+        "rlang",
+        "waldo",
+        "withr"
+      ]
+    },
+    "tibble": {
+      "Package": "tibble",
+      "Version": "3.1.8",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "56b6934ef0f8c68225949a8672fe1a8f",
+      "Requirements": [
+        "fansi",
+        "lifecycle",
+        "magrittr",
+        "pillar",
+        "pkgconfig",
+        "rlang",
+        "vctrs"
+      ]
+    },
+    "tinytex": {
+      "Package": "tinytex",
+      "Version": "0.41",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "6edfe5df6431a724b4254c0591e34ab3",
+      "Requirements": [
+        "xfun"
+      ]
+    },
+    "utf8": {
+      "Package": "utf8",
+      "Version": "1.2.2",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "c9c462b759a5cc844ae25b5942654d13",
+      "Requirements": []
+    },
+    "vctrs": {
+      "Package": "vctrs",
+      "Version": "0.4.1",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "8b54f22e2a58c4f275479c92ce041a57",
+      "Requirements": [
+        "cli",
+        "glue",
+        "rlang"
+      ]
+    },
+    "waldo": {
+      "Package": "waldo",
+      "Version": "0.4.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "035fba89d0c86e2113120f93301b98ad",
+      "Requirements": [
+        "cli",
+        "diffobj",
+        "fansi",
+        "glue",
+        "rematch2",
+        "rlang",
+        "tibble"
+      ]
+    },
+    "withr": {
+      "Package": "withr",
+      "Version": "2.5.0",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "c0e49a9760983e81e55cdd9be92e7182",
+      "Requirements": []
+    },
+    "xfun": {
+      "Package": "xfun",
+      "Version": "0.33",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "1a666f915cd65072f4ccf5b2888d5d39",
+      "Requirements": []
+    },
+    "yaml": {
+      "Package": "yaml",
+      "Version": "2.3.5",
+      "Source": "Repository",
+      "Repository": "CRAN",
+      "Hash": "458bb38374d73bf83b1bb85e353da200",
+      "Requirements": []
+    }
+  }
+}
diff --git a/tests/testthat.R b/tests/testthat.R
index 35ab969..94ef759 100644
--- a/tests/testthat.R
+++ b/tests/testthat.R
@@ -1,3 +1,11 @@
+# This file is part of the standard setup for testthat.
+# It is recommended that you do not modify it.
+#
+# Where should you do additional test configuration?
+# Learn more about the roles of various files in:
+# * https://r-pkgs.org/tests.html
+# * https://testthat.r-lib.org/reference/test_package.html#special-files
+
 library(testthat)
 library(DevelExample)
 
diff --git a/tests/testthat/test-euclidean.R b/tests/testthat/test-euclidean.R
new file mode 100644
index 0000000..19ddcd0
--- /dev/null
+++ b/tests/testthat/test-euclidean.R
@@ -0,0 +1,9 @@
+library("DevelExample")
+data(example_data)
+
+test_that("Testing euclideanDist function", {
+  res <- dist(rbind(example_data[, 1], example_data[, 2]))[1]
+  expect_equal(euclideanDist(example_data[, 1], example_data[, 2]), res)
+
+  expect_error(euclideanDist(c(1, 2), c(NA, 2)), regexp = "contain NAs")
+})
diff --git a/vignettes/DevelExample.Rmd b/vignettes/DevelExample.Rmd
index 170fadb..508bfc5 100644
--- a/vignettes/DevelExample.Rmd
+++ b/vignettes/DevelExample.Rmd
@@ -40,3 +40,15 @@ It is usually a good idea to show the session information to help with reproduci
 sessionInfo()
 ```
 
+To calculate the euclidean distance between two vectors, we can use the `euclideanDist` function. In this example we will generate two random vectors from normal distributions with two different means and calculate the distance between them:
+
+```{r dist}
+set.seed(12345)
+v1 <- rnorm(10000, mean = 1)
+v2 <- rnorm(10000, mean = 2)
+res <- euclideanDist(v1, v2, verbose = FALSE)
+res
+```
+
+The `set.seed` function is used for the random number generator and ensures the same vectors will be produced each time for reproducibility.
+

From 5df45b3aedbcc07585b85694554376b2c9c28861 Mon Sep 17 00:00:00 2001
From: Justin Moy <jmmoy@bu.edu>
Date: Wed, 5 Oct 2022 09:55:44 -0400
Subject: [PATCH 4/5] fixed lintr

---
 .github/workflows/lint.yaml             |   2 +-
 NEWS.md                                 |   3 +++
 R/data.R                                |   6 +++---
 R/distance.R                            |  17 +++++++++--------
 data-raw/exampleData.R                  |   6 ++++++
 data-raw/example_data.R                 |   6 ------
 data/exampleData.rda                    | Bin 0 -> 2023 bytes
 data/example_data.rda                   | Bin 2009 -> 0 bytes
 man/euclideanDist.Rd                    |   8 ++++----
 man/{example_data.Rd => exampleData.Rd} |   8 ++++----
 tests/testthat/test-euclidean.R         |   6 +++---
 11 files changed, 33 insertions(+), 29 deletions(-)
 create mode 100644 data-raw/exampleData.R
 delete mode 100644 data-raw/example_data.R
 create mode 100644 data/exampleData.rda
 delete mode 100644 data/example_data.rda
 rename man/{example_data.Rd => exampleData.Rd} (81%)

diff --git a/.github/workflows/lint.yaml b/.github/workflows/lint.yaml
index 6388f75..64b7654 100644
--- a/.github/workflows/lint.yaml
+++ b/.github/workflows/lint.yaml
@@ -25,5 +25,5 @@ jobs:
           extra-packages: lintr
 
       - name: Lint
-        run: lintr::lint_package()
+        run: lintr::lint_package(linters = linters_with_defaults(object_name_linter = object_name_linter("camelCase")))
         shell: Rscript {0}
diff --git a/NEWS.md b/NEWS.md
index ddbdbcf..0edaaa4 100644
--- a/NEWS.md
+++ b/NEWS.md
@@ -1,3 +1,6 @@
+# Changes in Version 0.1.0 (2022-05-20)
+* Added function to calculate euclidean distance
+
 # DevelExample 0.1.0
 
 * Added a `NEWS.md` file to track changes to the package.
diff --git a/R/data.R b/R/data.R
index 394dcb5..8c6e0e6 100644
--- a/R/data.R
+++ b/R/data.R
@@ -5,7 +5,7 @@
 #'
 #' @format A matrix with 100 rows and 2 columns
 #' @keywords datasets
-#' @usage data("example_data")
+#' @usage data("exampleData")
 #' @examples
-#' data("example_data")
-"example_data"
+#' data("exampleData")
+"exampleData"
diff --git a/R/distance.R b/R/distance.R
index 73be69b..19aef9e 100644
--- a/R/distance.R
+++ b/R/distance.R
@@ -1,14 +1,15 @@
 #' @title Euclidean distance
-#' @description Calculates Euclidean distance between two vectors. An error will be
-#' given if NAs are present in either vector.
+#' @description Calculates Euclidean distance between two vectors. An error will
+#' be given if NAs are present in either vector.
 #'
 #' @param a The first vector to use in the distance calculation.
 #' @param b The second vector to use in the distance calculation.
-#' @param verbose Boolean. If \code{TRUE}, a message will be printed. Default \code{TRUE}.
+#' @param verbose Boolean. If \code{TRUE}, a message will be printed.
+#' Default \code{TRUE}.
 #' @return A numeric value of a distance
 #' @examples
-#' data(example_data)
-#' euclideanDist(example_data[, 1], example_data[, 2], verbose = FALSE)
+#' data(exampleData)
+#' euclideanDist(exampleData[, 1], exampleData[, 2], verbose = FALSE)
 #' @export
 euclideanDist <- function(a, b, verbose = FALSE) {
   if (isTRUE(verbose)) {
@@ -16,15 +17,15 @@ euclideanDist <- function(a, b, verbose = FALSE) {
   }
 
   # Check validity of data
-  .check_data(a)
-  .check_data(b)
+  .checkData(a)
+  .checkData(b)
 
   # Perform calculation
   res <- sqrt(sum((a - b)^2))
   return(res)
 }
 
-.check_data <- function(input) {
+.checkData <- function(input) {
   if (any(is.na(input))) {
     stop("'input' must not contain NAs")
   }
diff --git a/data-raw/exampleData.R b/data-raw/exampleData.R
new file mode 100644
index 0000000..9f83dff
--- /dev/null
+++ b/data-raw/exampleData.R
@@ -0,0 +1,6 @@
+## code to prepare `exampleData` dataset goes here
+set.seed(123)
+a <- rnorm(100)
+b <- rnorm(100)
+exampleData <- cbind(a, b)
+usethis::use_data(exampleData, overwrite = TRUE)
diff --git a/data-raw/example_data.R b/data-raw/example_data.R
deleted file mode 100644
index 24efc73..0000000
--- a/data-raw/example_data.R
+++ /dev/null
@@ -1,6 +0,0 @@
-## code to prepare `example_data` dataset goes here
-set.seed(123)
-a <- rnorm(100)
-b <- rnorm(100)
-example_data <- cbind(a, b)
-usethis::use_data(example_data, overwrite = TRUE)
diff --git a/data/exampleData.rda b/data/exampleData.rda
new file mode 100644
index 0000000000000000000000000000000000000000..d09d5074e5aaa9114ce0458bf1113869112a225f
GIT binary patch
literal 2023
zcmV<D2N?K5T4*^jL0KkKS!i^f;s60M|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0
z|NsC0|NqbgeqQIg=G{hUuK>tRspLlVk>wsJJx8hJk5KfQV`@Np5unlPX`s_U$QnIB
z)6{t(lR@ffrk<vmr~?t8@|qbm^*u%-Cz5)DPbuXaQM8_uX!TDClw@f1^pM(34@R1V
zj3=p+5Yd{Aq{4X`M#z`~G{oMZjA}De(UCBErqsk@Gej~mJrgxF#M(@0Jx@uK)Xfu3
zq{-+J=rj{Fn1`v8CYcXWnwvsBLq^nM7>G|MnNL&nk>IADQ`9ugPf*O7ng^+b(?B$O
zgG14#jYDc=Jx8eUj6pp|sp@FZ2dMQAQR*Hk<WEp}G$E!YO&+61qz$MvVl>1vO(&#i
zXdaMcKn(x@BLD+H353l}qf9_d695eX889XUzyN3y2*Ie+1i?0d00LkUjR?u369CWz
zz(xQ>(@0H8v?f43MvQ=H2AW|q13{6H8Z>AP4X7FbG|&wV4F*O>q8b1+(8-Vh&@l#w
zsL%sJkZmJDh|n}-Ih6&inC7;Gl@Q8P=Gm%(y$e9Vyl4_RfWXusbP<TeH8TK!QNXfr
zMe1RZ5SdXiz(9QWYs<RRCSVZ-Pb{nLB6W;6#rk<80DKa!diizu>LnUoDNIApDv^rK
z=0469NU3wMWJ)D57AE-c?Ex!8u1m~R9JOP(P~+_b)Q;C*l4K?+ccURh23*D|3Z;w4
z&=?b}k%VeCu_4V%cLeF8#+ank0`z{vtCa9%h?~}QM523IeAwpT$hML2h9kwFwfps3
zW^`;+&5=#3%IpiL2N6fpx-vgWDkizHE|xE?7by~qTN>lM!vzU54$Yj5bi?#};`xP;
zf!8!?UQG~##^)0#-@T0wrpFGdE_|9%l7_0=vj^|uCL`?19G3i^@(sUTYC9yMM_pgc
zEr%KX_odH`xnY<k^{+E3=o^b~wBzOetkoM>XlZ#eL*GyD?OFd=PNteS`P2@Ab&YXh
zf&ie&>636NV~XFFb$@_>p#Wki<Q0_*Y2?sRyM1k2CuSx?cGT+@6`B{Hy?!Jx>!I-_
zP^lWgAP_U>{lYoIgliErD9)ucjY?2ih7>>>!M~S5L4t!y(R?)J)a~NU1MzCAmwJHs
z9M;a00v5@g(s0w*>`KNMsmNxM#r4;R_3T2ieOd{(EDW6BVs)0w_k(YLVogbwsCsPJ
zvY4FBQbca{{+ag2LAwqq1ODpGA(wjETF`A<!k&@U_DThvN_s=dwPG`KD1DYf>|N-V
zD`BT;4;6NzN_kQ4p3S*S7wDN3KCLo-<$s8AlSCQ{WAgH$i<0nrQk`<U`-FB>5ZZUV
zlA_KN2}`ztK)4o0y7&NlP}Ty~CkpJ-Sk6ljhkBi+?<%N-;khLD57bUa$sXba8sc+i
z{5s&TLil0KzCG;)2rh`=d%`Q~wp-WoU0f^RFN|TfZ3&&2boLDEWgzOtVPEeXwG&8B
zM?NmR*c$1Kx}ePcNb?ur&kQ^iLE`+uy1B?h``lPC%=(jtSGQ$q2V6%zQ$9*-cbu@u
zk7Qz@<juiAQokQZw2Li%w>r-<%s!PvK?KHrzlmhJCBb&qAg9KN3wUA$j>s9gpyj1B
zOqT#wZ1!i&B?jk%(}K^kq$sG|G*Zch2mk~>o<tLtOMwA1pTQV^t>b0pvX66fH83%e
zKCebcgfQFQ?>%$;owmhRmZW85Slj}9y`~o4x=N%Z1%-w@M0o;w^3p8jC>FKDXA`SN
zI!uPy`Dk1S*3|uuG-Z`52&7Fnr3@!nBDv%|UL4#7A1y6f`5!efkS8>;lExlVWq`Dt
zo$n1FTzsjsumU-k?etE4WKf97hx@U*b)-gfqHj;lxo{%)lvH%Ywg!Ze<WN-F7D3pm
z(wqZ)G)@p`!gWfcpMc_u1H|$rnT;O=HFyLCVA+7~!BWXsK}NGq`E~S9vt<3J2GMaW
z-^7OzFvF=4AodkxIbU9W0OY9EM{-mNss=^EHm|n@tEnRt$kw>{J|Lr?RyJE0g}z#x
z&Y3#v>8)0EVxM(UZI0Sd<k1C%tx_hzwZ%-Q>nw4kMSQ6y1(3Ey8+1@VdC90pX<PT?
zJS5@GJrh$N0QyFagB0@<aXoh$OH$s2QFBTGLp#nFIL&xfWy{}dBCC|^1)p8G?$}`_
z>uNN*K4@rPBBYz?S42g+%kk9P&(5xPfu2zU&@(u?f^7C5^04jWFS%<<m6r|*{QAw%
zSaEJV0L_aTHbm~)sf)`@Qy7i@HAW+Sg<z;6NrZ=i0QG0GZ&k>OVCF7bDin|xyD>?{
zLK1ncL{?5ME?~Xb)m;p5bXnNws+Tn>0z@&=$si;1+=y9LjY^b9I6AYO29S5e;qODx
zqOvFSowTc3G!P7!gONY$`zbgj2OZ1er{a`?aYCXpM>v0&kU_{U%c3P=-eAZbuLnqU
ztR*CSQ0c<8OvA0u(<y^#x6K}MRX@VT<eeNR1px7ot0)u0IP#<0#kila2UuYc)4*&A
z0%t}O{NyDZzwAhjry?Jz@g#AkImARTwwfaKjEkK{E2PY_fbKQec$Rd8Dx)nPfFaD?
z3Av1EO;8_++>BSulx3Byr&^VN$HXDa$+F=fa<{F>DA0%Y3Ra^IFf*U{yOJrwgo8t*
F?-1F3*2Vw;

literal 0
HcmV?d00001

diff --git a/data/example_data.rda b/data/example_data.rda
deleted file mode 100644
index c16d4321456ba9323c64133d9a4e2589c279122e..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 2009
zcmV;~2PXJJT4*^jL0KkKS@m|udH?}3fB*mg|NsC0|NsC0|NsC0|NsC0|NsC0|NsC0
z|NsC0|NqbgeqQIg?A=Cb+q?jiYI#jG{X%|}dT5(b>5@H0(ionjA(|l3iKc@?BPM|L
z4K)2mP<c#Eq-pADqiSRZfuZUHO+8Og(0XW%7|MEs)E}w_O{w~xrcsgVY@VoTk(0>U
zp$W2$sf55IM%2ceQK)SbX)+Bkjj4#qgv|z1O&*O*j3YGw$)+RJ#LXEew1mc?={+ER
zq6}(ahpFWTnqVW*4Kql39-%!$M%2O#i7}8pA)%?7X&6sX4=Lyg>S)surkOMYOloFH
znx2ugXvEVL$n_qYnr%UmgfZ%dCzNCuMklF}rU=G?FbR;*^q4fBqfG-xpacMD6B+;j
zOf&!h&;TX?1i%0Q0Wbgn6C(f`002w^FatmU000DJFaQ8V&_PMGCPAarXvhYDX{Hk(
zG#ME*8Z>AP4XL4!G&Il+G|<pwWO^Z>15FH>01X2WXnKtRG#L!i0MKX}WGNK|jadek
zWGW#GQ<`L~3gfH-0^y}WNCXCf0-VG#3^j59fKx!RZ$0*LiHsyvNKg<TE#~;_u!#@^
zK~l{s`SnS!5$=AXK>$6ftFQk)cJW#!AH|ggYUR`jyJ-1m2(Xmm2m;1cLB<ij-v>%w
z(F0t1MJL$_u~%`7`{ZoJW0@BWM5*DHh9jXXjv|p}>BJ@$b#fpAALbP-ln*3c;iO3U
z#ZWfARJ8AhC}0^>lN_E6mJw$f@0R9UyvSMn=ZEh!=Q)^%ND*N*ICKq_1#cEEnmVw#
zs#EMtj(I{&#Ttb#tk5p{#HCY9(mm{=Z-jaeIZ@)BOh$PE4KFb`9x$iG9x3i|CJ`cC
zz2R|(SV})urJhy6lsqru-b~l{wYZH5q{3TJAoNRQE8lh5*F0VR4l*Y_U+VOP8grkf
zmb_dGmzeb{6Q^eomv(fWm}D>a<3&-v3f?%Q{q8E_zXk!2c+<f@Dv&jRUCYc=1I7ak
zOW}(Od7nHHiX{t`matzS{7!`lRA{UoROP~I76kp797h?F5Qrcep7D7`KGc+UCOLVc
z8pF^CvNdDaP=K#Ew43IVl2HzJo(VeleR?#(1YxcFyFN}7*UpOrQ63{=`eyR3QPA$P
zVX;}^cwa*Jr4DZ@&xCXgIB+!oWKQh<|5^xG{=<hNL>f>cs}v_6VdCVoKykIST36X?
zH4#I}QwDL6(1_(Uy%RPWl}PnfTJZsuMLT1RZ06h)b1n!{7961g9_*=VIE15p%uX-n
zef%T-yW2q|ADL&@(c|11bR%Veb?~kv)@XGGii`hQ@67|>m=#XNzPT93D_3ao6t{vc
z3u57;Yr=J=D#`Fbph4MSSQWS;qXHW^A;3jji&dK$%Oz<DucTm<S|Alz^7v<yMApAz
z`;}20Hhp4EFjY^xxf%Kag<{jI2(fbNL3d<_|7;&Awc@UM5>>T3WnO?`GB_CJQre9~
z{)<ckE|&<Fentq?&ibpv>2xo(uDF@QS;INn1i77FMxcOel)Z=p=;lhPDP|h+dK*?_
zZWEg5Ub4Pj)ZR+7^>D%4L7ph-uaz+$BxEt$88hhtjZ;xDUC@3!zBkZNI-RVx_a?ii
zGPdgiJY6Eb@Q4yf(=Tc-wBQvjZOcO1-ZZa01mizF-hPeEc~#@4feFWF5p#D%Z1w9m
z*%g7Xv9(!GqsQajvZ-E_+nCP8Bubdn8<es|&kyB=hwu3lltNZb>^1W`CW?9+xYiWH
zMW$kGYuWHaUMbo-3MA7-+B;h||8-0p2<`*Hr?n|IU?z@3ULlh3xZ*`xLw58M?{REP
zb4WmqcVTsVpH6>{7LSAbxgg$v(L|e!7fiY|&;6|6qkI<V4}rEOMckMsD;CH-fx09G
zJAn~k^V@N}ZmCT`3IOa@u9wIXJ(nJax{=a+$DsK-P0gd}5wghyqeo={sgQ_WhMZ{T
z_5>@T<ps5v+L7NTe<{}Io2WYaoSv;gXzF>K5HLldKj;=;C5wBE_|7Y^GFUYu;kl&=
z#xjCG0O94@7HG5nU~RYYIr66#XILjj)_6=YT?{~P=WCNfs1&T)vpPbHEM3Id>NHBP
zACtexCRk6Z4>1U&ZRdeDv~v9~x6(j>n`gVUo3*1I&9`pJ4?kW_oz3q-@OzGyZl_xr
z9_cs5Pisj+wbllSGm9|J<7$l6>M!X+w+!Chr4;OVFjxo1PI847(!dP(u$N+IX2nQv
z9YLotTikkV1@<9&pm}BTo#TVes?WPuBq;-sxafW8IA5(MmyU-rP}*qhq<T3*^=4IU
zNkPp{w>?yH(I{iYl^HXHo_CEAGR>z>n573sQh@!3cxL)Dyou|AUpZS1UC|uCGU5&<
zf7bQT-iS#qPYo{w#1nzl5tb=JrGbJHQEpuEsuki8!0US|2S~nRSFsk9LqzOa%=JQe
zR(q83XeLtpsJO{fL+{QG@O7lZh-e-YdUv>)`vg@8A`ws;;~YrlzLS`ANiO@C@-;><
z{L70mMxdn;5X0L(hV+c9m*W}GWKxu_76`c3R0vi^YE0l^%-zh|!bH>5rQvp@74jlN
r(9&uag<tY9hjH<2I0tLkgiyYo77jK}8CIm||KjdQrwS4tuGsHDc^0nq

diff --git a/man/euclideanDist.Rd b/man/euclideanDist.Rd
index ed10e85..64313f8 100644
--- a/man/euclideanDist.Rd
+++ b/man/euclideanDist.Rd
@@ -17,10 +17,10 @@ euclideanDist(a, b, verbose = FALSE)
 A numeric value of a distance
 }
 \description{
-Calculates Euclidean distance between two vectors. An error will be
-given if NAs are present in either vector.
+Calculates Euclidean distance between two vectors. An error will
+be given if NAs are present in either vector.
 }
 \examples{
-data(example_data)
-euclideanDist(example_data[,1], example_data[,2], verbose = FALSE)
+data(exampleData)
+euclideanDist(exampleData[, 1], exampleData[, 2], verbose = FALSE)
 }
diff --git a/man/example_data.Rd b/man/exampleData.Rd
similarity index 81%
rename from man/example_data.Rd
rename to man/exampleData.Rd
index e724347..cf7cdbd 100644
--- a/man/example_data.Rd
+++ b/man/exampleData.Rd
@@ -1,20 +1,20 @@
 % Generated by roxygen2: do not edit by hand
 % Please edit documentation in R/data.R
 \docType{data}
-\name{example_data}
-\alias{example_data}
+\name{exampleData}
+\alias{exampleData}
 \title{Example dataset}
 \format{
 A matrix with 100 rows and 2 columns
 }
 \usage{
-data("example_data")
+data("exampleData")
 }
 \description{
 A dataset containing a matrix with two columns that were generated
 with a random normal distribution with a mean of 0 and stdev of 1.
 }
 \examples{
-data("example_data")
+data("exampleData")
 }
 \keyword{datasets}
diff --git a/tests/testthat/test-euclidean.R b/tests/testthat/test-euclidean.R
index 19ddcd0..99068e5 100644
--- a/tests/testthat/test-euclidean.R
+++ b/tests/testthat/test-euclidean.R
@@ -1,9 +1,9 @@
 library("DevelExample")
-data(example_data)
+data(exampleData)
 
 test_that("Testing euclideanDist function", {
-  res <- dist(rbind(example_data[, 1], example_data[, 2]))[1]
-  expect_equal(euclideanDist(example_data[, 1], example_data[, 2]), res)
+  res <- dist(rbind(exampleData[, 1], exampleData[, 2]))[1]
+  expect_equal(euclideanDist(exampleData[, 1], exampleData[, 2]), res)
 
   expect_error(euclideanDist(c(1, 2), c(NA, 2)), regexp = "contain NAs")
 })

From 6be5ab3624c66ff8f4c67e746b0ef4cf884c36be Mon Sep 17 00:00:00 2001
From: Justin Moy <jmmoy@bu.edu>
Date: Wed, 12 Oct 2022 09:06:42 -0400
Subject: [PATCH 5/5] Added lintr:: to workflow

---
 .github/workflows/lint.yaml | 2 +-
 .lintr                      | 2 +-
 DESCRIPTION                 | 2 +-
 man/euclideanDist.Rd        | 3 ++-
 4 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/.github/workflows/lint.yaml b/.github/workflows/lint.yaml
index 64b7654..c436cb6 100644
--- a/.github/workflows/lint.yaml
+++ b/.github/workflows/lint.yaml
@@ -25,5 +25,5 @@ jobs:
           extra-packages: lintr
 
       - name: Lint
-        run: lintr::lint_package(linters = linters_with_defaults(object_name_linter = object_name_linter("camelCase")))
+        run: lintr::lint_package(linters = lintr::linters_with_defaults(object_name_linter = lintr::object_name_linter("camelCase")))
         shell: Rscript {0}
diff --git a/.lintr b/.lintr
index be9b6d4..e6308d4 100644
--- a/.lintr
+++ b/.lintr
@@ -1,4 +1,4 @@
-linters: with_defaults(
+linters: linters_with_defaults(
     object_name_linter = object_name_linter(styles = "camelCase"),
     line_length_linter(80),
     T_and_F_symbol_linter
diff --git a/DESCRIPTION b/DESCRIPTION
index ad4ea28..12a68b4 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -19,7 +19,7 @@ RoxygenNote: 7.2.1
 Suggests: 
     knitr,
     rmarkdown,
-    testthat
+    testthat,
 Config/testthat/edition: 3
 VignetteBuilder: knitr
 Depends: 
diff --git a/man/euclideanDist.Rd b/man/euclideanDist.Rd
index 64313f8..00aa127 100644
--- a/man/euclideanDist.Rd
+++ b/man/euclideanDist.Rd
@@ -11,7 +11,8 @@ euclideanDist(a, b, verbose = FALSE)
 
 \item{b}{The second vector to use in the distance calculation.}
 
-\item{verbose}{Boolean. If \code{TRUE}, a message will be printed. Default \code{TRUE}.}
+\item{verbose}{Boolean. If \code{TRUE}, a message will be printed.
+Default \code{TRUE}.}
 }
 \value{
 A numeric value of a distance