\name{validCEL}
\alias{celDates}
\alias{validCEL}
\title{
  Reads cel files and return an error if a file is not read
}
\description{
  Reads cel files and return an error if a file is not read
}
\usage{
validCEL(celfiles)
celDates(celfiles)
}
\arguments{
  \item{celfiles}{
    vector of cel file names to read
}
}
\value{
  Returns a message that cel files were successfully read, or an error
  if there were problems reading the cel files.
}

\author{
R. Scharpf
}

\seealso{ \cite{\link[affyio]{read.celfile.header}},
  \cite{\link{POSIXt}},
  \code{\link{read.celfile}}
}

\examples{
if(require(hapmapsnp6)){
  path <- system.file("celFiles", package="hapmapsnp6")
  cels <- list.celfiles(path, full.names=TRUE)
  validCEL(cels)
  celDates(cels)
}
}
\keyword{IO}