nlmcmpfun <- function(para0, cmprsk, cmp.data, Rm) {
  value <- loglikeAll(para0=para0, cmprsk = cmprsk, cmp.data=cmp.data, Rm=Rm)*(-1)
  gr <- loglikeAll.gr(para0=para0, cmprsk = cmprsk, cmp.data=cmp.data, Rm=Rm)*(-1)
  attr(value, "gradient") <- gr
  return(value)
}