pdf("ex0306.pdf")

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

ex0306dat <- read.fwf("http://www.stat.ufl.edu/~winner/data/biostat/ex0306.dat", width=c(8,8,8), col.names=c("subject","src","irc"))

# Create a dataset (frame) from input data

ex0306 <- data.frame(ex0306dat)

# Attach the dataset for analysis 

attach(ex0306)

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

t.test(src,irc,paired=T)

# Conduct the Wilcoxon Signed Rank Test on the differences src-irc (where src will be entered first)
# Note that V=T+ for this procedure
   

wilcox.test(src,irc,paired=T)


dev.off()