Log likelihood in r

# Calculate the log-likelihood for each term
log_likelihoods <- log(y_pred) * y_actual + log(1 - y_pred) * (1 - y_actual)

# Calculate minus the sum of the log-likelihoods for each term
-sum(log_likelihoods)

#function
calc_neg_log_likelihood <- function(coeffs) {
  intercept <- coeffs[1]
  slope <- coeffs[2]
  y_pred <- plogis(intercept + slope * x_actual)
  log_likelihoods <- log(y_pred) * y_actual + log(1 - y_pred) * (1 - y_actual)
  -sum(log_likelihoods)
}

Similar codes

2 votes394 views1 answer
R string ascii accents
R
0 vote407 views1 answer
Open('data.txt', 'r')
R
0 vote362 views1 answer
Geom_abline vertical line
R
0 vote423 views1 answer
How to source all fies from a directory in r
R
0 vote393 views1 answer
Geom_jitter transparency
R
0 vote380 views1 answer
Ggplot - subset top 10 in a stack bar plot
R
1 vote412 views1 answer
How to transform days in years R
R
6 votes994 views3 answers
Rstudio working directory
R
0 vote379 views1 answer
Generate dates between dates in R
R
0 vote396 views1 answer
Linear model remove variables in R
R