--- a
+++ b/man/nrisk.Rd
@@ -0,0 +1,30 @@
+\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 }