Nothing
get.all.breaks <-
function(dataset, CycleBreaks=NULL, window=NULL){
if(is.null(CycleBreaks)){
set1 <- get.cycle.breaks(dataset, window)
CycleBreaks <- set1$CycleBreaks
CycleIndex <- set1$CycleIndex
}
cyclemat <- get.cycle.matrix(dataset, CycleBreaks)
min.breaks <- get.cycle.minimums(dataset, CycleBreaks, cyclemat)
FCSC <- get.transition.locations(cyclemat, min.breaks$close.cycle, type="FCSC", CycleBreaks, closebreaks=min.breaks$closebreaks)
SOFO <- get.transition.locations(cyclemat, min.breaks$close.cycle, type="SOFO", CycleBreaks, closebreaks=min.breaks$closebreaks)
return(list(openbreaks=CycleBreaks, closebreaks=min.breaks$closebreaks, FCSC=FCSC$seq.mat, SOFO=SOFO$seq.mat, cyclemat=cyclemat, close.cycle=min.breaks$close.cycle, FCSC.cycle=FCSC$cycle, SOFO.cycle=SOFO$cycle))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.