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 vote238 views3 answers
Delete all rows that contain a string in R
R
0 vote249 views3 answers
R alluvial chart with NA
R
0 vote233 views1 answer
Find row with na r
R
0 vote245 views1 answer
Find q1, q3 and iqr in r
R
0 vote289 views3 answers
Logistic regression in r
R
0 vote246 views1 answer
Extract rse from lm in r
R
1 vote251 views1 answer
How to read number of excel sheet in r
R
0 vote230 views1 answer
How to remove all attributes from a variables in r
R
7 votes309 views2 answers
How to remove nas in r
R
0 vote210 views1 answer
Split strings by space in r
R