## R-code for Introduction to R Part II
## AHW3
## January 20, 2008

## remove (almost) everything in the working environment.
## You will get no warning, so don't do this unless you are really sure.
rm(list = ls())

###
data <- read.table("glucose.txt", header=T)

###
data$pre

attach(data)
pre

detach(data)
pre

###
attach(data)
y.sq.diff <- (pre-post)^2
y.sq.diff

#
data.2 <- data.frame(data, y.sq.diff)
data.2

#
data.3 <- cbind(data, y.sq.diff)
data.3

###
write.table(data.2, "glucose2.txt")