已经用R中的mlogit包构建了nested logit model和mixed logit model，但是不知道怎么写代码来得到训练样本和检验样本，怎么样才可以得到模型预测的正确率。