# ワークディテクとリーとデータの読み込みの設定
setwd("c:/R-data")
week1 <- read.table("week1.txt", header=TRUE)

# 重回帰分析
ans333 <- lm(sales3 ~ price3+flyer3, week1)  
summary(ans333)