R/writenh.R

Defines functions writenh

writenh <- function(newdata, newfile) {
  rowss <- apply(newdata, 1, paste, collapse = " ")
  for (i in 1:nrow(newdata) - 1) {
    rowss[i] <- paste0(rowss[i], "\n")
  }
  writeLines(rowss, sep = "", newfile)
}

Try the JMcmprsk package in your browser

Any scripts or data that you put into this service are public.

JMcmprsk documentation built on March 22, 2021, 9:07 a.m.