survivalCurve: Survival Curve

In jsdeherrera/shinyStats:

Description

This function creates a survival curve based on an sBG.est model parameters.

Usage

survivalCurve(alpha, beta, t = 96)

Arguments

alpha	Alpha parameter
beta	Beta parameter
t	iterations

Value

Returns a vector of survival percent estimates

Examples

## Not run: 
library(dplyr)
library(titanic)
titanic::titanic_train %>%
mutate(Deceased = ifelse(Survived == 1,0,1)) %>%
group_by(Age = round(Age,0)) %>%
summarise(Survived = sum(Survived), Deceased = sum(Deceased)) %>% {
sBG.est(
.$Survived[2:nrow(.)],
.$Deceased[2:nrow(.)]
)$par} %>% {
survivalCurve(.[1], .[2], 50)
}

## End(Not run)

jsdeherrera/shinyStats documentation built on May 13, 2019, 11:54 p.m.