Geometric probability function

pf_geometric(n, theta)

Arguments

n

Function support, with \(n = 1, 2, \cdots\).

theta

A probability value, i.e, \(0 < \theta < 1\).

Value

Calculated probability (vector)

Examples

sapply( X = 1L:1000L, FUN = function(i) pf_geometric(n = i, theta = 0.5) ) %>% sum
#> [1] 1