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

0 vote307 views1 answer
R last day of previous month
R
0 vote347 views1 answer
R remove inf values
R
0 vote351 views1 answer
Angular material number picker
R
1 vote327 views1 answer
Sort in descending order in r
R
1 vote297 views2 answers
R make directory
R
1 vote293 views1 answer
Replace accented characters in r
R
0 vote226 views1 answer
R delete na
R
1 vote302 views1 answer
R convert date as timestamp
R
0 vote277 views1 answer
How to return the date with only the day in it in r
R
2 votes353 views1 answer
R optim
R