Nothing
significanceOfLocalPeak <-
function(power_o, lambda, power_e, time_step, series_size, Nfreq, peakFreq, peakPower){
Epower = ps_ouss(freq=peakFreq, power_o=power_o, lambda=lambda, power_e=power_e, time_step=time_step, series_size=series_size);
ratio = peakPower/Epower;
if(is.nan(ratio)) return(NaN);
return(1 - (1-exp(-ratio))^Nfreq);
}
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.