R/dM.R

Defines functions dM

Documented in dM

#'\code{dM}
#'@keywords internal
dM <- function(all_times, failures, gamma_vec, U){

  fail_times <- all_times[which(failures == 1)]

  almost_ans <- M_vec(fail_times, all_times, failures, gamma_vec, U)

  ans <- almost_ans - rbind(rep(0, length(all_times)), almost_ans[-nrow(almost_ans), ])

  return(ans)
}

Try the kernscr package in your browser

Any scripts or data that you put into this service are public.

kernscr documentation built on Aug. 21, 2019, 1:05 a.m.