setwd("c:/R-data")
week1 <- read.table("week1.txt", header=TRUE)

ans11 <- lm(sales1 ~ price1, week1)
summary(ans11)