小编pk_*_*_22的帖子

R中的错误:不一致的参数.不对?

这是我的代码:

    #define likelihood function (including an intercept/constant in the function.)
lltobit <- function(b,x,y) {
  sigma <-  b[3]
  y  <- as.matrix(y)
  x <- as.matrix(x)
  vecones <- rep(1,nrow(x)) 
  x <- cbind(vecones,x)
  bx <- x %*% b[1:2] 
  d <- y != 0 
  llik <- sum(d * ((-1/2)*(log(2*pi) + log(sigma^2) + ((y - bx)/sigma)^2)) 
              + (1-d) * (log(1 - pnorm(bx/sigma))))
  return(-llik)
}

n <- nrow(censored) #define number of variables 
y <- censored$y #define y and x for easier use
x1 <- as.matrix(censored$x)
x <- …
Run Code Online (Sandbox Code Playgroud)

r vector matrix

7
推荐指数
1
解决办法
4万
查看次数

如果行数较少,则R代码更快

我对R代码有疑问.如果你在几行代码上写一个语句,当它也可以在一行中完成时,代码会更快吗?那么,较小的线条意味着更快的执行?

例:

fileName = paste(directory, "fileTest.csv", sep="")
vars = read.csv(fileName, header=F)
vars = as.matrix(vars)
Run Code Online (Sandbox Code Playgroud)

要么

vars = as.matrix(read.csv(paste(directory, "fileTest.csv", sep=""), header=F))
Run Code Online (Sandbox Code Playgroud)

我可以想象只有一次没关系,但如果你的代码中发生了很多这种情况?

performance r

1
推荐指数
1
解决办法
90
查看次数

标签 统计

r ×2

matrix ×1

performance ×1

vector ×1