#Multiple Regression

setwd("e:/rdir") #set working directory
data<-read.table("wg2.txt",header=T) #read a text file

lm(data$wg ~ data$female + data$hr)
summary(lm(data$wg ~ data$female + data$hr))