# ＜１＞mlogitライブラリを読み込む
library(mlogit)

# ＜２＞ワークディレクトリーの設定
setwd("c:/R-data")

# ＜３＞データの読み込み
ALL_AB <- read.table("logitAB.txt", header=TRUE)

# ＜４＞mlogit.dataでmlogit用に変換
dataAB <- mlogit.data(ALL_AB,
		varying = 4:5,
            sep = ".",
            shape= "wide", 
		choice = "item.choice")

ansAB <- mlogit(item.choice ~ price, data=dataAB)
summary(ansAB)