Summary Stats

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

summary(data$wg)
hist(data$wg)
stem(data$wg)

mean(data$wg)
sd (data$wg)