我正在尝试使用SemiMarkov包,我想在那里更改一小段代码.我做了一些挖掘:
getAnywhere("semiMarkov")
我已经确定要更改此行:
hessian <- diag(ginv(hessian(V, solution)))
尝试类似的东西:
hessian <- diag(ginv(pracma::hessian(V, solution)))
我该怎么做？我是否需要从头开始重建软件包,如果是这样,我需要rTools等,或者是否有一个简单的解决方法(我是一个相关的R新手)？我做了一些在线搜索,找不到任何明显的东西.任何想法/指针感激不尽.
我尝试在数据框中的多个列中做一个简单的最小值,但min函数自动返回整个每列的min而不是分别对每一行.我确定我错过了一些非常简单的东西吗？任何想法都非常感激.
x<-c(1,2,7)
y<-c(1,5,4)
minIwant <- c(1,2,4)
df <- data.frame(x,y,minIwant)
df$minIget <- min(df$x,df$y)
df
x y minIwant minIget
1 1 1 1 1
2 2 5 2 1
3 7 4 4 1