if (FALSE) {
## Printing an object of class 'survPresmooth' with 4 digits, including
## in the output the value of the pilot bandwidth and the estimated p
## function
print(presmooth(t, delta, pscheck), more = c("pilot.bw", "p.hat"),
digits = 4)
}
Run the code above in your browser using DataLab