lambda <- lambda_diff(c("A" = 1, "B" = 2, "C" = 3),
c("A" = 1, "B" = 2, "C" = 6))
lambda
# same result
lambda2 <- lambda_diff(c(1, 2, 3), c(1, 2, 6),
labels = c("A", "B", "C"))
lambda2
Run the code above in your browser using DataLab