data("popWR")
wr <- WR(data = popWR, colID = "country_code",
matchWith = "iso3_eh", res = "low")
str(wr, 1)
wr1 <- WR(data = popWR, colID = "country_code",
matchWith = "iso3_eh", res = "low",
add = ~I(male/total) + I(female/total))
str(wr1)
wr2 <- WR(data = popWR, colID = "country_code",
matchWith = "iso3_eh", res = "low",
add = ~I(male/total) + I(female/total),
new_var_names = c("Per_Male", "Per_Female"))
str(wr2)
Run the code above in your browser using DataLab