fixed description file and error in calculating price response

jdanielnd · May 6, 2012 · 0a0c65a · 0a0c65a
1 parent e45b223
commit 0a0c65a
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 4 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -4,9 +4,6 @@ Title: Time series generator
 Version: 1.0
 Date: 2012-05-05
 Author: Joao Daniel, Claudio Duarte
-Authors@R: c(person("Joao", "Duarte", role = c("aut", "cre"), email
-        = "jdanielnd@gmail.com"), person("Claudio", "Duarte",
-        role = c("aut","cre")))
 Maintainer: Joao Daniel <jdanielnd@gmail.com>
 Description: Provide tools to generate time series
 License: MIT
diff --git a/R/add.price.R b/R/add.price.R
@@ -24,7 +24,9 @@ add.price <- function(tser, elast, random.price=FALSE, inf.limit=NULL, sup.limit
   ## Gerando Resposta ao Preco
   rp <- vector("numeric",length(price))
   rp[1] <- 0
-  rp[-1] <- ((price[-length(price)] - price[-1])/price[-length(price)])*elast
+  rp[-1] <- (price[-1] - price[-length(price)])/price[-length(price)]
+
+  rp <- rp*elast
 
   ## Gerando Volume Basico c/ Sazonalidade e Resposta ao Preco
   vbsazrp <- tser*(rp + 1)