使用R语言中的metrop函数的时候始终报错如下：
Error in system.time(out <- .Call(C_metrop, func1, initial, nbatch, blen,  :
  logh: result of function call must be scalar
Timing stopped at: 0.05 0 0.05

看了许久都没发现错误，求高手指导一下，不胜感激！