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 vote269 views1 answer
Correlation matrix using factors r
R
0 vote304 views1 answer
Pass argument to group_by (2)
R
0 vote282 views1 answer
Decision tree r
R
1 vote268 views1 answer
"R" concatinate rows
R
1 vote291 views2 answers
Figure caption in r markdown
R
0 vote300 views1 answer
Libpath r
R
0 vote288 views1 answer
Print the names of all worksheets in r
R
0 vote275 views1 answer
Unset par mar
R
0 vote284 views3 answers
Turn row names into column in r
R
0 vote320 views1 answer
Switch to another line in string r
R