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 vote132 views1 answer
Automatically wrap r text label ggplot
R
3 votes177 views4 answers
How to read csv file in r
R
1 vote146 views1 answer
Find data type of vector r
R
0 vote144 views1 answer
Insert character into string r
R
0 vote158 views1 answer
R summary
R
0 vote134 views1 answer
How to get quantile summary statistics in r summarise
R
0 vote146 views1 answer
Number of days in a data set in r
R
0 vote138 views1 answer
Decompose function in r
R
0 vote138 views2 answers
How to convert numeric to date in R
R
2 votes168 views2 answers
Read excel in r
R