# NOT RUN {
# Create a simple data set with the values and errors
toyDataDF <- data.frame(x=runif(10, 0, 10), dx=rep(0.2, 10), y=runif(10, 0, 10),
dy=rep(0.1, 10))
# Call the function to perform cuts
newToyDataDF <- performCuts(toyDataDF)
# Clean the environment
rm(list=c("toyDataDF", "newToyDataDF"))
# }
Run the code above in your browser using DataLab