correct error with 'value'

R/basic_ts.R

@@ -30,10 +30,11 @@ basic_ts <- function(df,target,group,precision){
 
     tmp <- table(unlist(tmp))
     indice <-  as.numeric(names(tmp[tmp==length(group)]))
-    res_ts[indice,"value"] <-df[i,target]
     res_ts[indice,varnames] <-basic[i,varnames]
   }
 
+  res_ts[,"value"] <-df[,target]
+
   res <- friendlyts::friendlyts(df=res_ts,date_type="friendlyts",precision=precision)
   class(res) <- c("basic_ts",class(res))
   return(res)