Commit d3402e19 authored by Jean-Marie Lepioufle's avatar Jean-Marie Lepioufle
Browse files

correct error with 'value'

parent ea2cd832
...@@ -30,10 +30,11 @@ basic_ts <- function(df,target,group,precision){ ...@@ -30,10 +30,11 @@ basic_ts <- function(df,target,group,precision){
tmp <- table(unlist(tmp)) tmp <- table(unlist(tmp))
indice <- as.numeric(names(tmp[tmp==length(group)])) indice <- as.numeric(names(tmp[tmp==length(group)]))
res_ts[indice,"value"] <-df[i,target]
res_ts[indice,varnames] <-basic[i,varnames] res_ts[indice,varnames] <-basic[i,varnames]
} }
res_ts[,"value"] <-df[,target]
res <- friendlyts::friendlyts(df=res_ts,date_type="friendlyts",precision=precision) res <- friendlyts::friendlyts(df=res_ts,date_type="friendlyts",precision=precision)
class(res) <- c("basic_ts",class(res)) class(res) <- c("basic_ts",class(res))
return(res) return(res)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment