R中内维数计算进展

Progress of Intrinsic Dimension Calculation in R

我正在使用 R 包 "ider" 和 "intrinsicDimension"。 "intrinsicDimension" 包中只有一个函数:pcaLocalDimEst 有详细选项,"ider" 中的 none 个函数有详细选项。

有什么办法可以知道计算进度吗?
例如,如果我使用相关维度估计器的内核版本来确定内在维度:

estconvU <- convU(x=df, maxDim=20)

如何获取计算进度?

键入以下内容:

fix(convU)

修改第一行,在函数调用末尾添加"verbose=FALSE"

 # -- - - - - - - - - - - - - - - - -vvvvvvvvvvvvv don't add this line
function (x, maxDim = 5, DM = FALSE, verbose=FALSE) # <- add this "verbose=FALSE"
 # -- - - - - - - - - - - - - - - - -^^^^^^^^^^^^^ don't add this line

然后,向下滚动到第 19 行并在 for 循环初始化之后添加以下内容:

19:  for (l in 1:maxDim) {
20:        if(verbose) cat(paste("Working...", l, "\n")) # Add this line.

然后点击底部的保存按钮。如果你犯了错误,R会抱怨。

如果没有,请调用 convU 函数但添加 verbose=TRUE,您应该会看到一些进度消息。例如来自convU的帮助页面:

x <- gendata(DataName='SwissRoll', n=1200)
estconvU <- convU(x=x, verbose = TRUE)
Working... 1 
Working... 2 
Working... 3 
Working... 4 
Working... 5