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 vote236 views1 answer
R print concatenate
R
0 vote202 views1 answer
Filter date in r
R
0 vote187 views1 answer
No redundant combination expand grid
R
0 vote276 views1 answer
Switch to another line in string r
R
3 votes223 views1 answer
R remove row dataframe
R
0 vote222 views1 answer
Dummify data in r
R
0 vote217 views1 answer
L in r
R
0 vote215 views1 answer
How to read multiple csv files from a directory in r
R
2 votes257 views1 answer
Remove rownumbers r
R
0 vote246 views1 answer
R - transform as factor
R