#' @title make.xyz
#' @description couldn't accurately describe
#' @param \code{x}
#' @param \code{y}
#' @param \code{z}
#' @param \code{group}
#' @param \code{FUN}
#' @family data structures
#' @keywords manip
#' @author unknown, \email{<unknown>@@dfo-mpo.gc.ca}
#' @export
make.xyz <- function (x, y, z, group, FUN = sum, ...)
{
Z <- tapply(z, list(paste(x, y, sep = ", "), group), FUN,
...)
Z <- ifelse(is.na(Z), 0, Z)
XY <- rownames(Z)
tempfun <- function(XY, i) {
as.numeric(unlist(lapply(strsplit(XY, ", "), function(x) x[i])))
}
X <- tempfun(XY, 1)
Y <- tempfun(XY, 2)
return(list(x = X, y = Y, z = Z))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.