R/power_series_distributions.R
pf_geometric.Rd
Geometric probability function
pf_geometric(n, theta)
Function support, with \(n = 1, 2, \cdots\).
A probability value, i.e, \(0 < \theta < 1\).
Calculated probability (vector)
sapply( X = 1L:1000L, FUN = function(i) pf_geometric(n = i, theta = 0.5) ) %>% sum #> [1] 1