Nothing
combine.rwl <- function(x, y = NULL) {
combinator <- function(x, y) {
dim.x2 <- ncol(x)
dim.y2 <- ncol(y)
if(dim.x2 > 0 && dim.y2 > 0){
dim2 <- dim.x2 + dim.y2
years.x <- rownames(x)
years.y <- rownames(y)
min.x <- as.numeric(years.x[1])
min.y <- as.numeric(years.y[1])
max.x <- as.numeric(years.x[length(years.x)])
max.y <- as.numeric(years.y[length(years.y)])
min.year <- min(min.x, min.y)
years <- min.year:max(max.x, max.y)
new <- matrix(NA, nrow = length(years), ncol = dim2)
new[(min.x-min.year+1):(max.x-min.year+1), seq_len(dim.x2)] <- x
new[(min.y-min.year+1):(max.y-min.year+1), (dim.x2+1):dim2] <- y
rownames(new) <- years
colnames(new) <- c(colnames(x), colnames(y))
new
} else if(dim.y2 == 0) {
x
} else {
y
}
}
## check, if x is a list with data.frames inside it
## if yes: forget about y, and loop through all items of x and apply
## combinator() one by one
## if no: just use combinator() with x and y
if (is.list(x)) {
n <- length(x)
if (n > 0 && all(vapply(x, is.data.frame, TRUE))) {
new.mat <- as.matrix(x[[1]])
for (i in inc(2, n))
new.mat <- combinator(new.mat, as.matrix(x[[i]]))
} else if (is.data.frame(x) && is.data.frame(y)) {
new.mat <- combinator(as.matrix(x), as.matrix(y))
} else {
stop("Nothing to combine here. Please supply data.frames formatted according to the data standards in dplR.")
}
} else {
stop("Nothing to combine here. Please supply data.frames formatted according to the data standards in dplR.")
}
new.mat <- as.data.frame(new.mat)
class(new.mat) <- c("rwl", "data.frame")
new.mat
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.