R: Раковина не работает правильно
У меня есть проблема с четвертой из последней строки в коде ниже (извините за большой объем кода, я не уверен, сколько нужно)
library(mlogit)
library(foreign)
clogit <- read.table("~/R/clogit.dat", col.names=c("mode", "ttme", "invc", "invt", "gc", "chair",
"hinc", "psize", "indj", "indi", "aasc", "tasc", "basc", "casc",
"hinca", "psizea", "z", "nij", "ni"), na.strings= "-999")
clogit$mode.ids <-factor(rep(1:4,210), labels=c("air", "train", "bus", "car"))
CLOGIT <- mlogit.data(clogit,shape="long", choice="mode", alt.var="mode.ids")
res1 <- mlogit(mode~ttme+gc, data=clogit,shape="long", alt.var="mode.ids")
summary(res1)
res2 <- mlogit(mode~ttme+gc, data=CLOGIT)
summary(res2)
res3 <- mlogit(mode~ttme + gc | hinc, data=CLOGIT)
summary(res3)
res4 <- mlogit(mode~ttme | hinc | gc, data=CLOGIT)
sink("~/R/res4.txt")
cat("Here are my results:\n")
summary(res4)
sink()
sink("~/R/res4.txt")
функция в последней строке будет хранить"Here are my results"
линия, но неsummary(res4)
линия в.txt
файл.
Typingsummary(res4)
производит правильный набор данных, и я не понимаю, почему выводsummary(res4)
не входит у кого-нибудь есть решение? Благодарю.