R/FromTo.R

Defines functions FromTo

FromTo <- function(X) {
  if (length(X) > 2) {
    X2 <- c(rep(X, each = 2)[-1], rep(X, each = 2)[1])
    X3 <- matrix(X2, ncol = 2, byrow = TRUE)
  } else {
    X3 <- X
  }
}

Try the viscomp package in your browser

Any scripts or data that you put into this service are public.

viscomp documentation built on Jan. 16, 2023, 5:09 p.m.