这是我的代码:
#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代码有疑问.如果你在几行代码上写一个语句,当它也可以在一行中完成时,代码会更快吗?那么,较小的线条意味着更快的执行?
例:
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)
我可以想象只有一次没关系,但如果你的代码中发生了很多这种情况?