From 518a801a9a0f1aef36df1f201b6a3f0f3a84b779 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Sat, 18 Apr 2020 00:38:26 +0200
Subject: Avoid assignment to .GlobalEnv for CRAN

---
 man/get_deg_func.Rd | 15 +++++++++++++++
 man/nlme.mmkin.Rd   |  4 ++--
 2 files changed, 17 insertions(+), 2 deletions(-)
 create mode 100644 man/get_deg_func.Rd

(limited to 'man')

diff --git a/man/get_deg_func.Rd b/man/get_deg_func.Rd
new file mode 100644
index 00000000..1d8a3de9
--- /dev/null
+++ b/man/get_deg_func.Rd
@@ -0,0 +1,15 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/nlme.mmkin.R
+\name{get_deg_func}
+\alias{get_deg_func}
+\title{Retrieve a degradation function from the mmkin namespace}
+\usage{
+get_deg_func()
+}
+\value{
+A function that was likely previously assigned from within
+  nlme.mmkin
+}
+\description{
+Retrieve a degradation function from the mmkin namespace
+}
diff --git a/man/nlme.mmkin.Rd b/man/nlme.mmkin.Rd
index 97d444e4..430dbda1 100644
--- a/man/nlme.mmkin.Rd
+++ b/man/nlme.mmkin.Rd
@@ -83,9 +83,9 @@ endpoints(f[[1]])
 f_nlme <- nlme(f)
 print(f_nlme)
 endpoints(f_nlme)
-f_nlme_2 <- nlme(f, start = c(parent_0 = 100, log_k_parent_sink = 0.1))
-update(f_nlme_2, random = parent_0 ~ 1)
 \dontrun{
+  f_nlme_2 <- nlme(f, start = c(parent_0 = 100, log_k_parent_sink = 0.1))
+  update(f_nlme_2, random = parent_0 ~ 1)
   # Test on some real data
   ds_2 <- lapply(experimental_data_for_UBA_2019[6:10],
    function(x) x$data[c("name", "time", "value")])
-- 
cgit v1.2.1