# One parameters of normal distribution mapped with logarithmic function
x <- rnorm(n = 10000, mean = 50, sd = 4)
theta_2 <- maxlogL( x = x, link = list(over = "sd",
fun = "log_link") )
summary(theta_2)
# Link function name
fun <- log_link()$name
print(fun)
# Link function
g <- log_link()$g
curve(g(x), from = 0, to = 1)
# Inverse link function
ginv <- log_link()$g_inv
curve(ginv(x), from = -5, to = 5)
Run the code above in your browser using DataLab