Nothing
`hilow` <-
function(y)
{
##### find the peaks and valleys of the signals return the indecies of the locations
ind = seq(1,length(y))
w = y
aa = peaks(w, span=3)
ab = peaks((-1)*w, span=3)
ka = rep(FALSE, length(aa)+2)
ka[2:(length(aa)+1)] = aa
pks = ind[ka]
### message(pks)
kb = rep(FALSE, length(ab)+2)
kb[2:(length(ab)+1)] = ab
vals = ind[kb]
### message(vals)
return(list(hi=pks, lo=vals))
}
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.