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

# 0.001429 を20週の平均購買数量として代用
anssmall1 <- lm(log(small1) ~ log(price1s), week1)
summary(anssmall1)

# 0.00001429を20週の平均購買数量として代用
anssmall2 <- lm(log(small2) ~ log(price1s), week1)  
summary(anssmall2)

# 0.0000001429を20週の平均購買数量として代用
anssmall3 <- lm(log(small3) ~ log(price1s), week1)  
summary(anssmall3)