Comparing Weibull model and Kaplan-Meier estimate

Let's plot the survival curve we get from the Weibull model for the GBSG2 data!

The survival and survminer packages and the GBSG2 data are loaded for you in this exercise.

This exercise is part of the course

Survival Analysis in R

View Course

Exercise instructions

Compute the Weibull model for the GBSG2 data.
Compute the survival curve from the model.
Plot the survival curves you get from the two estimates.

Hands-on interactive exercise

Have a go at this exercise by completing this sample code.

# Weibull model
wb <- ___(___(___, ___) ~ ___, ___)

# Retrieve survival curve from model
surv <- seq(.99, .01, by = -.01)

# Get time for each probability
t <- predict(___, type = ___, p = ___, newdata = data.frame(___))

# Create data frame with the information needed for ggsurvplot_df
surv_wb <- data.frame(time = ___, surv = ___, 
  upper = NA, lower = NA, std.err = NA)

# Plot
ggsurvplot_df(fit = ___, surv.geom = ___)

Edit and Run Code