R/store.R

In boxfilter: Filter Noisy Data

Defines functions store

Documented in store

store<-function(object){
  name=readline(prompt="Enter directory/file name: ")
  df=data.frame(x=object$x,y=object$y,filtered=object$filtered)
  if (name!="") {
    write.csv(df,name,row.names=FALSE)
    print(paste("storing",name))
  }
}

Try the boxfilter package in your browser