# NOT RUN {
data <- data.frame (N = 1:5, percent = c(12, 15, 18, 20, 94), number = c(0.1, 0.5, 0.6, 0.8 ,0.9))
rate_DF (data = data, rate.var = c("percent", "number"), weights = c(0.4, 0.6), return = "add",
as.percent = TRUE, percent.var = "percent")
# }
Run the code above in your browser using DataLab