R/loo.ind.cpt.R

In changepoint.influence: Package to Calculate the Influence of the Data on a Changepoint Segmentation

loo.ind.cpt=function(del.point,data,...){
  # function to generate a single loo dataset and apply the PELT algorithm to the data
  
  # del.point     The index of the point to delete
  # data          The original data
  # ...           arguments to be passed to the changepoint method
  
  n=length(data)
  if(any(del.point<1)){stop('del.point is less than 1')}
  else if(any(del.point>n)){stop('del.point is larger than the length of the data')}
  
  # generate the data
  data=data[-del.point]
  
  # apply the changepoint approach to the reduced data
  del.ans=cpt.mean(data,...)
  
  # retrieve the relevant output
  # class vector
  
  # parameter values
  
  # return the output
  return(del.ans)
  
}