1 files changed, 4 insertions, 0 deletions

diff --git a/R/SFO.R b/R/SFO.R
new file mode 100644
index 0000000..a91625c
--- /dev/null
+++ b/R/SFO.R
@@ -0,0 +1,4 @@
+SFO <- function(t, parent.0, k)

+{

+	parent = parent.0 * exp(-k * t)

+}