https://github.com/cran/ftsa
Tip revision: 415368d78ea30230e9017d72e83432baec81b1c9 authored by Han Lin Shang on 11 May 2010, 00:00:00 UTC
version 1.7
version 1.7
Tip revision: 415368d
extract.x.R
extract.x = function (data, xorder)
{
x = data$x
y = data$y
index=vector(,length(xorder))
if (length(xorder) == 1){
index = which(as.numeric(rownames(y)) == xorder)
}
if (length(xorder) > 1){
for(i in 1:length(xorder)){
index[i] = which(as.numeric(rownames(y)) == xorder[i])
}
}
newdata = as.matrix(y[index,])
newx = x[index]
ftsdata = fts(newx, newdata, xname = data$xname, yname = data$yname)
rownames(ftsdata$y) = as.character(xorder)
return(ftsdata)
}