gtluu / cardinalscripts Goto Github PK

Hi,
I am trying to implement your functions into my workflow but I have encountered an issue.

1-When I run:
ssc2 <- spatialShrunkenCentroidsWrapper(mydata2, r=c(2, 4), k=c(5, 10), s=c(0))
I get this error message:
Error in spatialShrunkenCentroidsWrapper(mydata2, r = c(2, 4), k = c(5, : object 'rparam' not found
I solved this by replacing the first line of the function with:
function (dataset, rparam = 1, kparam = 3, sparam = 0, ...))

2- When I run
Ssc3 <- spatialShrunkenCentroids(mydata2, r=rparam, k=kparam, s=sparam)
sscParams <- optimizeSSCParams(Ssc3, sparam, rparam, kparam)
I get this error message:
Error in optimizeSParam(sscDf, sparam, plotS) : object 'kneed' not foundCalled from:

I have tried debugging this second part but I failed. I was wondering if you could help me out.
Thanks