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


# 販売数量に1を加えてから平均購買数量をもとめた例

anspuls1a <- lm(log((item1+1)/7) ~ log(price1s), week1)  
summary(anspuls1a)


# 平均販売数量に１を加えた例

anspuls1b <- lm(log((item1)/7+1) ~ log(price1s), week1)  
summary(anspuls1b)

# 集計期間２週間のデータで分析した例

week2 <- read.table("week2.txt", header=TRUE)
answeek2 <- lm(sales1 ~ price1, week2)  
summary(answeek2)