pdf("ex0403.pdf")

# Read in data from ASCII formatted (Fixed With File)

ex0403dat <- read.fwf("http://www.stat.ufl.edu/~winner/data/biostat/ex0403.dat", width=c(8,8,8), col.names=c("subject","highfat","lowfat"))


# Attach the dataset for analysis 

attach(ex0403dat)

# Conduct the Paired t-test on the differences highfat-lowfat (where highfat will be entered first)

t.test(highfat,lowfat,paired=T)



dev.off()