b3state<-multidf(gap1=bladder4state$y1, event1=bladder4state$d1,
gap2=bladder4state$y2, status=bladder4state$d2,
size=bladder4state$size)
obj0 <- b3state[[1]]
NWW(covariate = obj0$size, x=3, kernel = "gaussian", bw = 3)
Run the code above in your browser using DataLab