Familydata {epicalc} | R Documentation |
Anthropometric and financial data of a hypothetical family
data(Familydata)
A data frame with 11 observations on the following 6 variables.
code
age
ht
wt
money
sex
F
M
data(Familydata) use(Familydata) des() summ() age2 <- age^2 plot(age, money, log="y") dots.of.age <- seq(0,80,0.01) new.data.frame <- data.frame(age=dots.of.age, age2=dots.of.age^2) lm1 <- lm(log(money) ~ age + age2) dots.of.money <- predict.lm(lm1, new.data.frame) lines(dots.of.age, exp(dots.of.money), col="blue")