###########Read the data "Carhydrate Diet"############

diet <- read.table("Carbohydrate diet.txt", header=T)

diet

summary(diet)

attach(diet)

hist(carbohydrate) ###########Histogram of the Data

fit1 <- lm(carbohydrate~age+weight+protein)

summary(fit1)

residuals(fit1)

predict(fit1)

fit2 <- lm(carbohydrate~weight+protein)

summary(fit2)

anova(fit2,fit1)