调试和更改包中的R-函数

Question

为了说明我的问题，我使用了TSclust包的一个函数，例如：

test<-function()
{

    # this works just fine
    require(TSclust)
    ns  <- 100
    z1  <- rnorm(ns) 
    z2  <- rnorm(ns)
    res <- diss.CDM(z1, z2, type = "min")
}

这个很好用。现在，我希望通过在R-编辑器中键入函数'diss.CDM‘来查看函数diss.CDM：

function (x, y, type = "min") 
{
  .ts.sanity.check(x, y)
  comp <- .compression.lengths(x, y, type)
  comp$cxy/(comp$cx + comp$cy)
}
<environment: namespace:TSclust>

由此，我创建了我自己的个人副本，例如：

myDiss<- function (x, y, type = "min") 
{
  .ts.sanity.check(x, y)
  comp <- .compression.lengths(x, y, type)
  comp$cxy/(comp$cx + comp$cy)
}

在上面的R代码中调用myDiss，如下所示

res <- myDiss(z1, z2, type = "min")

让我调试一下代码。然而，R-会话既不理解函数".ts.sanity.check"，也不理解压缩长度".compression.lengths".。

是否有方法加载此功能并使我的个人复制工作？

Answer 1

您可以从TSclust github存储库中获取包的整个代码库，并使用它进行调试器。

或者，也许更简单的方法是按照本文这个职位中描述的那样做

就像：

require(TSclust)
ns  <- 100
z1  <- rnorm(ns) 
z2  <- rnorm(ns)
debug(diss.CDM)
res <- diss.CDM(z1, z2, type = "min")