From df2e56c3ec7b166a2d329cf41ef58ec268910f44 Mon Sep 17 00:00:00 2001
From: Johannes Ranke
The output times
A data frame containing the output times and the concentrations +assuming initial concentrations of 1 for the parent and zero for +metabolites, if any.
+Johannes Ranke
@@ -92,7 +98,9 @@ is calculated (SFO model).head(pfm_degradation("SFO", DT50 = 10))
+ # Simple example of an SFO decline curve
+sfo_out <- pfm_degradation("SFO", DT50 = 10)
+head(sfo_out)
#> time parent
#> 0 0 1.0000000
#> 1 1 0.9330330
@@ -100,6 +108,26 @@ is calculated (SFO model).
#> 3 3 0.8122524
#> 4 4 0.7578583
#> 5 5 0.7071068
+
+# Fictive example with a metabolite where we first generate an SFO-SFO model
+sfo_sfo <- mkinmod(
+ parent = mkinsub("SFO", to = "metabolite"),
+ metabolite = mkinsub("SFO"))
+#> Temporary DLL for differentials generated and loaded
+
+sfo_sfo_out <- pfm_degradation(sfo_sfo,
+ parms = c(k_parent = 0.1, f_parent_to_metabolite = 0.5, k_metabolite = 0.02))
+
+plot(
+ sfo_sfo_out[, "time"],
+ sfo_sfo_out[, "parent"], type = "l",
+ xlab = "Time", ylab = "Relative concentration",
+ xlim = c(0, 100))
+lines(
+ sfo_sfo_out[, "time"],
+ sfo_sfo_out[, "metabolite"], lty = 2)
+
+