From 39fabc9ebbd5056d9f48bfa021a71ec28a66e5cf Mon Sep 17 00:00:00 2001
From: franc00018 <francois@francoispelletier.org>
Date: Sat, 29 Mar 2014 11:40:33 -0400
Subject: [PATCH] =?UTF-8?q?modification=20param=C3=A8tres?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 R/cfLM.R    | 6 ++++--
 man/cfLM.Rd | 8 +++++---
 2 files changed, 9 insertions(+), 5 deletions(-)

diff --git a/R/cfLM.R b/R/cfLM.R
index 0295766..844f90c 100644
--- a/R/cfLM.R
+++ b/R/cfLM.R
@@ -7,16 +7,18 @@
 
 #' Characteristic function of Laplace motion
 #' @param u Transform variate
-#' @param time Time of the process
 #' @param param Parameter vector
+#' @param time1 Start time of the process
+#' @param time2 End time of the process
 #' @param type Choose between "mu" or "kappa" parametrization
 #' @param log Logical for log-parameters
 #' @param start Starting value of the process
 #' @return Characteristic function value at point u for given parameter vector
 #' @export cfLM
 #' @author Francois Pelletier
-cfLM <- function(u,time,param,type="mu",log=FALSE,start=0)
+cfLM <- function(u,param,time1,time2,type="mu",log=FALSE,start=0)
 {
+	time <- time2-time1
 	testparGAL(param,type,log)
 	if(log)
 	{
diff --git a/man/cfLM.Rd b/man/cfLM.Rd
index e108541..2774c3e 100644
--- a/man/cfLM.Rd
+++ b/man/cfLM.Rd
@@ -2,15 +2,17 @@
 \alias{cfLM}
 \title{Characteristic function of Laplace motion}
 \usage{
-cfLM(u, time, param, type = "mu", log = FALSE, start = 0)
+cfLM(u, param, time1, time2, type = "mu", log = FALSE, start = 0)
 }
 \arguments{
   \item{u}{Transform variate}
 
-  \item{time}{Time of the process}
-
   \item{param}{Parameter vector}
 
+  \item{time1}{Start time of the process}
+
+  \item{time2}{End time of the process}
+
   \item{type}{Choose between "mu" or "kappa"
   parametrization}