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