R/extract.name.from.special.R

In prodlim: Product-Limit Estimation for Censored Event History Analysis

Defines functions extract.name.from.special

extract.name.from.special <- function(x,pattern="[()]"){
  if (length(x)==1) 
    rev(unlist(strsplit(x,pattern)))[1]
  else
    as.character(sapply(x,extract.name.from.special))
}

Try the prodlim package in your browser