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 vote158 views1 answer
R df space in column name
R
0 vote137 views1 answer
How to return the date with only the day in it in r
R
8 votes282 views3 answers
How to count the number of non NA values in R
R
0 vote152 views1 answer
Next element in a loop if error in r
R
1 vote149 views1 answer
View table/dataframe in r
R
0 vote150 views1 answer
ISO 2 letter country code in r
R
0 vote147 views2 answers
Animated bar chart race in r
R
3 votes294 views2 answers
Mode in r
R
0 vote143 views1 answer
Summary metrics of confusion matrix
R
0 vote154 views1 answer
Repeat each value in a vector in r
R