From d852e9e000f57f280deb84611ae1af58daa883cc Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 18 Nov 2016 23:08:45 +0100
Subject: Fix links in README, configure navbar, rebuild docs

---
 docs/articles/FOCUS_D.R | 20 ++++++++++++++++++++
 1 file changed, 20 insertions(+)

(limited to 'docs/articles/FOCUS_D.R')

diff --git a/docs/articles/FOCUS_D.R b/docs/articles/FOCUS_D.R
index 9eaf41f7..51723496 100644
--- a/docs/articles/FOCUS_D.R
+++ b/docs/articles/FOCUS_D.R
@@ -2,3 +2,23 @@
 library(knitr)
 opts_chunk$set(tidy = FALSE, cache = TRUE)
 
+## ----data----------------------------------------------------------------
+library("mkin")
+print(FOCUS_2006_D)
+
+## ----model---------------------------------------------------------------
+SFO_SFO <- mkinmod(parent = mkinsub("SFO", "m1"), m1 = mkinsub("SFO"))
+print(SFO_SFO$diffs)
+
+## ----fit-----------------------------------------------------------------
+fit <- mkinfit(SFO_SFO, FOCUS_2006_D, quiet = TRUE)
+
+## ----plot, fig.height = 6, fig.width = 8---------------------------------
+plot_sep(fit, lpos = c("topright", "bottomright"))
+
+## ----plot_2, fig.height = 4, fig.width = 8-------------------------------
+mkinparplot(fit)
+
+## ------------------------------------------------------------------------
+summary(fit)
+
-- 
cgit v1.2.1