R/scanFN.R

Defines functions scanFN

Documented in scanFN

#*** scanFN.R ***/
##
##     AUTHOR:  Arnost Komarek (my name in TeX: Arno\v{s}t Kom\'arek)
##              [email protected]
##
##           CREATED:  01/02/2007
##
## PURPOSE: Customized 'scan'
##
## FUNCTIONS: scanFN
## 
#* ********************************************************************************* */
scanFN <- function(file, quiet=FALSE)
{
  xname <- scan(file, what=character(0), nlines=1, quiet=quiet)
  nx <- length(xname)
  x <- matrix(scan(file, what=double(0), skip=1, quiet=quiet), ncol=nx, byrow=TRUE)
  colnames(x) <- xname
  return(as.data.frame(x))  
}

Try the bayesSurv package in your browser

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

bayesSurv documentation built on May 2, 2019, 3:26 a.m.