\name{nrisk}
\alias{nrisk}
\title{ Get number-at-risk from a survfit object }
\description{ Retrieve the number-at-risk from a survfit object for the specified times, for each strata. }
\usage{
nrisk(x, times = pretty(x$time))
}
\arguments{
  \item{x}{ An object of type \code{\link[survival]{survfit}}. }
  \item{times}{ The timepoints of interest. }
}
\details{
This function was written and documented by Aron Charles Eklund in his package
survplot version 0.0.7.}
\value{ A matrix indicating the number-at-risk for each timepoint (columns) and stratum (rows). }
\author{Aron Charles Eklund (survplot version 0.0.7)}
\seealso{ \code{\link{survplot}} }
\examples{  
library(survival)
data(colon)
surv <- Surv(colon$time, colon$status)

## example with stratification
nrisk(survfit(surv ~ colon$rx))

## example without stratification
nrisk(survfit(surv ~ 1))

}
\keyword{ survival }