R/xy.group.s

In harrelfe/Hmisc: Harrell Miscellaneous

## Author: Frank Harrell 24 Jun 91 updated for cutGn 2024-12-26
xy.group <- function(x,y,m=150,g,fun=mean,result="list")
{
  k <- ! is.na(x + y)
  if(sum(k) < 2)
    stop("fewer than 2 non-missing x and y")

  x <- x[k]
  y <- y[k]

  if(missing(m)) {
    q      <- cut2(x, g=g, levels.mean=TRUE, digits=7)
    x.mean <- as.numeric(levels(q))
  }
  else {
    q      <- cutGn(x, m=m)
    x.mean <- unique(sort(q))
  }
 
  y.fun <- as.vector(tapply(y, q, fun))
  if(result == "matrix")	{
    z <- cbind(table(q), x.mean, y.fun)
    dimnames(z) <- list(levels(q), c("n", "x", "y"))
  } else z <- list(x=x.mean, y=y.fun)
  z
}