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 vote357 views1 answer
How to get the r2 value in r
R
0 vote341 views1 answer
R - split the data in queal ranges
R
0 vote422 views1 answer
Round multiple columns in r
R
0 vote269 views1 answer
Dplyr average columns
R
0 vote352 views1 answer
Replace character with na r
R
0 vote325 views1 answer
How to summarise data but keep columns R
R
1 vote332 views2 answers
Create a dataframe with column names in r
R
2 votes324 views3 answers
Rename columns based on a variable in r
R
0 vote366 views1 answer
Set row names in r
R
0 vote298 views1 answer
R heatmap
R