#ƒ‚P„mlogitƒ‰ƒCƒuƒ‰ƒŠ‚π“ǂݍž‚ή
library(mlogit)

#ƒ‚Q„ƒ[ƒNƒfƒBƒŒƒNƒgƒŠ[‚̐ݒθ
setwd("c:/R-data")

#ƒ‚R„ƒf[ƒ^‚̓ǂݍž‚έ
ALL_AB_1 <- read.table("logitAB_1.txt", header=TRUE)


#ƒ‚S„mlogit‚Εmlogit—p‚Ι•ΟŠ·
dataAB_1 <- mlogit.data(ALL_AB_1,
		varying = 4:9,
		sep = ".", 
		shape= "wide",
		choice = "item.choice")

#ƒ‚T„•ͺΝ
ansAB_4 <- mlogit(item.choice ~ price+Loy2, data=dataAB_1)
summary(ansAB_4)