stairstepn: generate steps

In felasa/fdtools: Herramientas

Usage

stairstepn(data, direction = "hv", yvars = "y")

Arguments

data
direction
yvars

Examples

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (data, direction = "hv", yvars = "y") 
{
    direction <- match.arg(direction, c("hv", "vh"))
    data <- as.data.frame(data)[order(data$x), ]
    n <- nrow(data)
    if (direction == "vh") {
        xs <- rep(1:n, each = 2)[-2 * n]
        ys <- c(1, rep(2:n, each = 2))
    }
    else {
        ys <- rep(1:n, each = 2)[-2 * n]
        xs <- c(1, rep(2:n, each = 2))
    }
    data.frame(x = data$x[xs], data[ys, yvars, drop = FALSE], 
        data[xs, setdiff(names(data), c("x", yvars)), drop = FALSE])
  }

felasa/fdtools documentation built on May 16, 2019, 12:46 p.m.