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 vote153 views1 answer
How to format a number in r
R
0 vote192 views1 answer
Open xlsx with r
R
1 vote147 views1 answer
View table/dataframe in r
R
1 vote138 views1 answer
R sapply syntax
R
0 vote145 views1 answer
Strtrim in r
R
0 vote179 views1 answer
How to change the font of the xlab in plot in r
R
0 vote142 views4 answers
Convert first row to header in r
R
0 vote159 views1 answer
Set row names in r
R
3 votes239 views1 answer
Comments in r
R
0 vote151 views1 answer
Sort R
R