'X' 作为至少二维的数组

Question

对 R 和 RStudio 以及编码语言的整个概念非常陌生。我正在尝试创建可重现的代码，以便我可以正确地提出问题。

第一个错误说：

Error in colSums(cTrain * log(pTrain) + cCar * log(pCar) + cSM * log(pSM)) : 'x' must be an array of at least two dimensions

使用此代码，我可以在哪里修复此问题以便 'x' 可以具有二维？

mydata <- structure(list(LUGGAGE=c(0,1,0,1,0), GA=c(0,0,0,0,0), TRAIN_AV=c(1,1,1,1,1), CAR_AV=c(1,1,1,1,1), SM_AV=c(1,1,1,1,1), 
               TRAIN_TT=c(114,142,235,193,227), TRAIN_CO=c(40,109,124,90,94),
               SM_TxT=c(44,91,179,119,108), SM_CO=c(46,132,132,127,118),
               CAR_TT=c(140,110,170,150,286), CAR_CO=c(123,104,80,95,169), CHOICE=c(2,2,3,3,2)),
               .Names=c("Luggage","GA","TRAIN_AV","CAR_AV","SM_AV","TRAIN_TT","TRAIN_CO","SM_TT","SM_CO","CAR_TT","CAR_CO","CHOICE"), 
               row.names=c(NA,5L), class="data.frame")

## Initial value of parameters
initPar <- 8


### Log-Likelihood Function of the Logit Model
library("maxLik")
loglik <- function(x) {
  ## Parameters
  # Alternative Specific Constants
  asc_train   <- x[1]
  asc_sm      <- x[2]
  # Travel Time to Destination
  ttime       <- x[3]
  # Travel Cost to Destination
  tcost_train <- x[4]
  tcost_car   <- x[5]
  tcost_sm    <- x[6]
  # Effect of Swiss Annual Season Ticket
  ga <- x[7]
  # Effect of luggage
  luggage <- x[8]

  ## Log-Likelihood Variable
  LL = 0

  ## Utility Function Vin
  train  <- asc_train*matrix(1, nrow=nrow(mydata), ncol = 1) + tcost_train*mydata$TRAIN_CO + ttime*mydata$TRAIN_TT/100 + ga*mydata$GA + luggage*mydata$LUGGAGE
  car    <-                                                    tcost_car*mydata$CAR_CO     + ttime*mydata$CAR_TT/100                  + luggage*mydata$LUGGAGE
  sm     <- asc_sm*matrix(1, nrow=nrow(mydata), ncol = 1)    + tcost_sm*mydata$SM_CO       + ttime*mydata$SM_TT/100    + ga*mydata$GA + luggage*mydata$LUGGAGE

  ## exp(Vin) and Control for Mode Availability
  train  <- mydata$TRAIN_AV *exp(train)
  car    <- mydata$CAR_AV   *exp(car)
  sm     <- mydata$SM_AV    *exp(sm)

  ## Choice Probabilities
  deno   <- (train + car + sm)

  ## Individual Choice Probabilities
  pTrain <- mydata$TRAIN_AV *(train / deno)
  pCar   <- mydata$CAR_AV   *(car   / deno)
  pSM    <- mydata$SM_AV    *(sm    / deno)

  pTrain <- (pTrain!=0) *pTrain + (pTrain==0)
  pCar   <- (pCar!=0)   *pCar   + (pCar==0)
  pSM    <- (pSM!=0)    *pSM    + (pSM==0)

  ## Choice Results
  cTrain <- mydata$CHOICE == "1"
  cCar   <- mydata$CHOICE == "3"
  cSM    <- mydata$CHOICE == "2"

  ## Log-Likelihood Function
  LL <- colSums(cTrain*log(pTrain) + cCar*log(pCar) + cSM*log(pSM))
}


### Maximization of Log-Likelihood Function ###
# Parameter Optimization
result <- maxLik(loglik, start=numeric(initPar))

# Parameter Estimation, Hessian Matrix Calculation
parameters    <- result$estimate
hessianMatrix <- result$hessian

# T-Statistic Calculation
tval <- parameters/sqrt(-diag(solve(hessianMatrix)))

# L(0), Log-Likelihood When All parameters = 0
L0 <- loglik(numeric(initPar))
# LL, Maximumum Likelihood
LL <- result$maximum

Answer 1

问得好，有一个可重现的例子；已投票！

你的问题很简单。您的函数查找名为 mydata$LUGGAGE 的不存在的变量。 R 区分大小写，您的列名为 mydata$Luggage.

你所要做的就是

names(mydata)[1] <- "LUGGAGE"

现在运行你的脚本，你应该得到这个结果：

result <- maxLik(loglik, start=numeric(initPar))
result
# Maximum Likelihood estimation
# Newton-Raphson maximisation, 30 iterations
# Return code 2: successive function values within tolerance limit
# Log-Likelihood: -1.744552e-07 (8 free parameter(s))
# Estimate(s): -277.7676 -250.6531 8.651811 -1.680196 -4.208955 -1.281697 0 354.4692

'X' 作为至少二维的数组

'X' as an array of at least two dimensions

arrays

r

rstudio