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

1 vote123 views1 answer
How to Convert a Factor in R
R
0 vote126 views1 answer
Dotted y intercept line in ggplot
R
0 vote137 views1 answer
R seq
R
0 vote126 views1 answer
Pairing in r
R
0 vote61 views1 answer
Copy dataframe in r
R
0 vote125 views1 answer
R performance matrix for confusion matrix
R
0 vote130 views8 answers
Rstudio
R
0 vote116 views1 answer
Histogram r add line
R
0 vote124 views1 answer
R check object dimensions
R
0 vote125 views1 answer
R last day of previous month
R