R/writeData.R

In TIMP: Fitting Separable Nonlinear Models in Spectroscopy and Microscopy

writeData <- function(data, opt) {
  for(i in 1:length(data)) {
    write.table(data[[i]]@psi.df, file=paste(opt@makeps, "_dataset_",
                                    i, ".txt", sep=""),
                quote = FALSE,
                row.names = data[[i]]@x, col.names = data[[i]]@x2)
  }

}