1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
|
# na methods from zoo
time.ST = function(x, ...) index(x@time)
start.ST = function(x, ...) start(x@time)
end.ST = function(x, ..., endTime=FALSE) {
if (endTime)
max(x@endTime)
else
end(x@time)
}
na.locf.STFDF = function (object, na.rm = FALSE, ...) {
nv = dim(object)[3]
df = vector("list", nv)
names(df) = names(object@data)
for (i in 1:nv) {
x = na.locf(as(object[,,i], "xts"), na.rm = na.rm, ...)
df[[i]] = as.vector(t(x))
}
STFDF(object@sp, index(x), data.frame(df))
}
na.spline.STFDF = function(object, x = time(object),
xout, ..., na.rm = TRUE) {
nv = dim(object)[3]
df = vector("list", nv)
names(df) = names(object@data)
for (i in 1:nv) {
x = na.spline(as(object[,,i], "xts"), x, xout, na.rm = na.rm, ...)
df[[i]] = as.vector(t(x))
}
STFDF(object@sp, index(x), data.frame(df))
}
na.approx.STFDF = function(object, x = time(object),
xout, ..., na.rm = TRUE) {
nv = dim(object)[3]
df = vector("list", nv)
names(df) = names(object@data)
for (i in 1:nv) {
x = na.approx(as(object[,,i], "xts"), x, xout, na.rm = na.rm, ...)
df[[i]] = as.vector(t(x))
}
STFDF(object@sp, index(x), data.frame(df))
}
|
