set.seed(123)
x <- c(NA, Inf, -Inf, NaN, runif(6))
y <- c("a", "inf", "NaN", NA, sample(letters, 6, replace = TRUE))
df <- data.frame(x, y)
head(df, 10)
df_1 <- irregular2(df)
head(df_1, 10)
df_2 <- irregular2(df, vars = "x", to = ";-)")
head(df_2)
Run the code above in your browser using DataLab