cluster.data <- cluster.ex
cluster.data[,"RangeID":=0]
fit.result <- fit.analysis(cluster.data)
mod.performance <- fit.result$NullModel
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.