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 votes229 views1 answer
Random integer in r
R
2 votes206 views1 answer
R convert accented characters
R
0 vote200 views1 answer
Ggplot2 barplot order of bars
R
2 votes286 views1 answer
R optim
R
0 vote215 views1 answer
How to remove all attributes from a variables in r
R
0 vote212 views1 answer
R2 in rstudio
R
0 vote226 views1 answer
Repeat sample in r
R
0 vote192 views1 answer
Ggplot box plot without outliers poins
R
0 vote197 views1 answer
Disable the y axis in plot r
R
0 vote282 views1 answer
Save link tweet in new column in R
R