From df2e56c3ec7b166a2d329cf41ef58ec268910f44 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
Date: Thu, 10 Sep 2026 12:42:19 +0200
Subject: Update online docs
---
docs/reference/one_box.html | 39 +++++++++++++++++++++++++++++++++++++++
1 file changed, 39 insertions(+)
(limited to 'docs/reference/one_box.html')
diff --git a/docs/reference/one_box.html b/docs/reference/one_box.html
index 4987f15..3410ac4 100644
--- a/docs/reference/one_box.html
+++ b/docs/reference/one_box.html
@@ -53,6 +53,17 @@
# S3 method for class 'character'
one_box(x, ini = 1, parms, ..., t_end = 100, res = 0.01)
+# S3 method for class 'mkinmod'
+one_box(
+ x,
+ ini = c(1, rep(0, length(x$diffs) - 1)),
+ odeparms,
+ solution_type = "deSolve",
+ ...,
+ t_end = 100,
+ res = 0.01
+)
+
# S3 method for class 'mkinfit'
one_box(x, ini = "model", ..., t_end = 100, res = 0.01)
@@ -92,6 +103,14 @@ all observed variables.
parms
A named numeric vector containing the model parameters
+
+odeparms
+Will be passed to mkinpredict
+
+
+solution_type
+Will be passed to mkinpredict
+
Value
@@ -120,6 +139,26 @@ all observed variables.
pred_2 <- one_box(fit_2, ini = "model")
plot(pred_2)

+
library(mkin)
+
SFO_SFO <- mkinmod(
+
parent = mkinsub("SFO", to = "m1"),
+
m1 = mkinsub("SFO"))
+
#> Temporary DLL for differentials generated and loaded
+
c_0 = c(parent = 100, m1 = 0)
+
deg_parms = c(k_parent = 0.15, f_parent_to_m1 = 0.5, k_m1 = 0.01)
+
sfo_sfo_box <- one_box(SFO_SFO, odeparms = deg_parms, ini = c_0)
+
head(sfo_sfo_box)
+
#> Time Series:
+
#> Start = c(0, 1)
+
#> End = c(0, 6)
+
#> Frequency = 100
+
#> parent m1
+
#> 0.00 100.00000 0.00000000
+
#> 0.01 99.85011 0.07494003
+
#> 0.02 99.70045 0.14976024
+
#> 0.03 99.55101 0.22446081
+
#> 0.04 99.40180 0.29904192
+
#> 0.05 99.25281 0.37350376