/
Summary_ff.R
112 lines (105 loc) · 3.31 KB
/
Summary_ff.R
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
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
#' Summary methods for ff objects
#'
#' @export
#' @method all ff
#' @param x a \code{ff} object
#' @param ... optional other (\code{ff}) objects
#' @param na.rm should \code{NA} be removed?
#' @param range a \code{ri} or an \code{integer} vector of \code{length==2} giving a range restriction for chunked processing
#' @return \code{TRUE}, \code{FALSE} or \code{NA}
all.ff <- function(x,..., na.rm=FALSE, range=NULL){
r <- checkRange(range,x)
all( ...
, sapply(chunk(x, from=min(r), to=max(r))
, function(i){
all(x[i], na.rm=na.rm)
}
)
)
}
#' Summary methods for ff objects
#' @export
#' @method any ff
#' @param x a \code{ff} object
#' @param ... optional other (\code{ff}) objects
#' @param na.rm should \code{NA} be removed?
#' @param range a \code{ri} or an \code{integer} vector of \code{length==2} giving a range restriction for chunked processing
#' @return \code{TRUE}, \code{FALSE} or \code{NA}
any.ff <- function(x, ..., na.rm=FALSE, range=NULL){
r <- checkRange(range,x)
any( ...
, sapply(chunk(x, from=min(r), to=max(r))
, function(i){
any(x[i], na.rm=na.rm)
}
)
)
}
#' \code{sum} returns the sum of all the values present in its arguments.
#'
#' @title Sum of \code{ff} vector Elements
#' @method sum ff
#' @export
#' @param x a \code{ff} object
#' @param ... optional other (\code{ff}) objects
#' @param na.rm should \code{NA} be removed?
#' @param range a \code{ri} or an \code{integer} vector of \code{length==2} giving a range restriction for chunked processing
#' @return sum of elements
sum.ff <- function(x, ..., na.rm=FALSE, range=NULL){
r <- checkRange(range, x)
sum( ...
, sapply( chunk(x, from=min(r), to=max(r))
, function(i){
sum(x[i], na.rm=na.rm)
}
)
)
}
#' Minimum, maximum and range of ff vector
#'
#' default behaviour of \code{\link{min}},\code{\link{max}} and \code{\link{range}}
#' @method min ff
#' @method max ff
#' @method range ff
#' @example ../examples/minmaxrange.R
#' @export
#' @aliases min.ff max.ff range.ff
#' @param x a \code{ff} object
#' @param ... optional other (\code{ff}) objects
#' @param na.rm should \code{NA} be removed?
#' @param range a \code{ri} or an \code{integer} vector of \code{length==2} giving a range restriction for chunked processing
#' @return minimun, maximum or range values
min.ff <- function(x, ..., na.rm=FALSE, range=NULL){
r <- checkRange(range, x)
min( ... #for all other ff's?
, sapply( chunk(x, from=min(r), to=max(r))
, function(i){
#print(x[i])
min(x[i], na.rm=na.rm)
}
)
)
}
#' @export
max.ff <- function(x, ..., na.rm=FALSE, range=NULL){
r <- checkRange(range, x)
max( ... #for all other ff's?
, sapply( chunk(x, from=min(r), to=max(r))
, function(i){
max(x[i], na.rm=na.rm)
}
)
)
}
#' @export
range.ff <- function(x, ..., na.rm=FALSE, range=NULL){
r <- checkRange(range, x)
range( ... #for all other ff's?
, sapply( chunk(x, from=min(r), to=max(r))
, function(i){
#print(x[i])
range(x[i], na.rm=na.rm)
}
)
)
}