# ＜１＞データの読み込み
setwd("c:/R-data")
ALL_ABC <- read.table("logitABC.txt", header=TRUE)

#＜２＞データの変換
library(mlogit)
dataABC_1 <- mlogit.data(ALL_ABC, 
		varying = 4:12, 
		sep = ".", 
		shape= "wide", 
		choice = "item.choice")
#＜３＞パラメータ推定
ansABC_3 <- mlogit(item.choice ~ price+Loy2, data=dataABC_1)
summary(ansABC_3)