diff options
| author | Suraj Yerramilli | 2015-06-05 12:53:03 +0530 |
|---|---|---|
| committer | Suraj Yerramilli | 2015-06-05 12:53:03 +0530 |
| commit | 8376565b2b1debf41452ac53ebfea55fbcada0fd (patch) | |
| tree | 78f53ffdf23651a25dc2200d2d38ea9d411225f6 | |
| parent | cedd56e08def572f1be820844d462928497f357a (diff) | |
| download | SysID-R-code-8376565b2b1debf41452ac53ebfea55fbcada0fd.tar.gz SysID-R-code-8376565b2b1debf41452ac53ebfea55fbcada0fd.tar.bz2 SysID-R-code-8376565b2b1debf41452ac53ebfea55fbcada0fd.zip | |
Corrrected a few errors
| -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 |