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 votes228 views1 answer
Dplyr replace na
R
0 vote243 views1 answer
Add padding to number r
R
0 vote229 views1 answer
R change column based on condition
R
2 votes225 views3 answers
Rename columns based on a variable in r
R
3 votes220 views3 answers
Rename columns in table r
R
0 vote223 views1 answer
How to get quantile summary statistics in r summarise
R
0 vote223 views1 answer
Summary metrics of confusion matrix
R
0 vote230 views1 answer
R produce 10 alphabet
R
0 vote238 views2 answers
Remove column from matrix r
R
0 vote221 views1 answer
R seq
R