diff options
| -rw-r--r-- | R/preprocess.R | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/R/preprocess.R b/R/preprocess.R index d01c277..f28af8c 100644 --- a/R/preprocess.R +++ b/R/preprocess.R @@ -114,15 +114,15 @@ misdata <- function(data){ f <- function(var,start,end,Ts){ var <- ts(data=var,start=start,end=end,frequency=floor(1/Ts)) - out <- na.approx(var) + out <- na.approx(var,) return(as.numeric(out)) } dataout <- data - dataout$output <- data.frame(apply(data$output,2,f),start=data$t.start, - end=data$t.end,Ts= data$Ts) - dataout$input <- data.frame(apply(data$input,2,f),start=data$t.start, - end=data$t.end,Ts= data$Ts) + dataout$output <- data.frame(apply(data$output,2,f,start=data$t.start, + end=data$t.end,Ts= data$Ts)) + dataout$input <- data.frame(apply(data$input,2,f,start=data$t.start, + end=data$t.end,Ts= data$Ts)) return(dataout) }
\ No newline at end of file |