Nothing
moo.ind.cpt=function(out.point,data,range,pos=TRUE,same=FALSE,sd=0.01,...){
# function to generate a single moo dataset and apply the PELT algorithm to the data
# out.point The index of the point to modify
# data The original data
# range Max-Min of data
# pos.=TRUE If true modification is above the data, if false then below
# same.=FALSE If TRUE the original value doesn't matter the out.point is a new value, if true then range added to the original point
# sd.=0.01 jitter to add to the modified point
# ... arguments to be passed to the changepoint method
n=length(data)
if(any(out.point<1)){stop('out.point is less than 1')}
else if(any(out.point>n)){stop('out.point is larger than the length of the data')}
# generate the data
data[out.point]=make.many.outlier(data[out.point],range.data=range,pos=pos,same=same,sd=sd)
# apply the PELT approach
outlier.ans=cpt.mean(data,...)
# return the new cpt object
return(outlier.ans)
}
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.