# 指数モデルの適用
setwd("c:/R-data")
week1 <- read.table("week1.txt", header=TRUE)

anslog <- lm(log(sales1) ~ log(price1), week1)  
summary(anslog)