getParentCentroid <-
function(xr, ...) {
xrr <- makeMiniXR(xr)
peaks <- findPeaks(xrr, method="centWave", ...)
invisible(peaks)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.