# 欠損値を補った分析
setwd("c:/R-data")
week1 <- read.table("week1.txt", header=TRUE)

ans1s <- lm(sales1 ~ price1s, week1)         
summary(ans1s)