Displaying 1 result from an estimated 1 matches for "functionthatcanonlygrabcontigu".
2010 May 18
1
difficulties with setMethod("[" and ...
...n = representation(x = "array"))
myExample <- function(dims = c(1,2)) {
a <- array(rnorm(prod(dims)))
dim(a) <- dims
obj <- new("myExample")
obj at x <- a
return(obj)
}
setMethod("dim", "myExample", function(x) return(dim(x at x)))
functionThatCanOnlyGrabContiguous <- function(x, m, kall) {
kall$x <- x at x
for (i in 1:nrow(m)) {
kall[[i+2]] <- seq.int(m[i,1], m[i,2])
}
print(as.list(kall))
return(eval(kall))
}
setMethod("[", "myExample", function(x, i, j, ..., drop = TRUE) {
if (missing(...)){
print("...