Nothing
"maxchi" <-
function(input_file, breaks, winHalfWidth, permReps) {
input_file<-c("Rmaxchi", input_file)
out<- .Call("stepwise", input_file = as.character(input_file),
breaks = as.integer(breaks), winHalfWidth = as.integer(winHalfWidth),
permReps = as.integer(permReps), PACKAGE="stepwise")
if (length(out$winlocs) > 0) class(out) = "maxchi"
out
}
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.