diff options
Diffstat (limited to 'R/idframe.R')
| -rw-r--r-- | R/idframe.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/idframe.R b/R/idframe.R index 9b79245..5a0b338 100644 --- a/R/idframe.R +++ b/R/idframe.R @@ -35,7 +35,7 @@ idframe <- function(output=NULL,input=NULL,Ts = 1,start=0,end=NULL, l3 <- lapply(l,ts,start=start,deltat=Ts) # Object Constructor - dat <- list(output=l3[[1]],input=l3[[1]],unit=unit) + dat <- list(output=l3[[1]],input=l3[[2]],unit=unit) class(dat) <- "idframe" return(dat) } |