Nothing
CreateFreqAnalysis <-
function(HRVData, verbose=NULL) {
# ---------------------------------------------------------
# Creates a frequency analysis associated to the data model
# ---------------------------------------------------------
HRVData = HandleVerboseArgument(HRVData, verbose)
VerboseMessage(HRVData$Verbose, "Creating frequency analysis")
num = length(HRVData$FreqAnalysis)
HRVData$FreqAnalysis[[num + 1]] = list()
VerboseMessage(HRVData$Verbose,
paste("Data has now", num + 1, "frequency analysis"))
return(HRVData)
}
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.