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 vote221 views1 answer
R function to get class of all columns
R
1 vote217 views1 answer
R regress one variable on all the other variables
R
0 vote194 views1 answer
Knn accuracy in r
R
0 vote204 views1 answer
How to remove all attributes from a variables in r
R
2 votes197 views5 answers
How to import csv file in r
R
2 votes255 views3 answers
R merge columns
R
1 vote225 views1 answer
Descending order a list in r
R
1 vote251 views1 answer
R convert list to comma separated string
R
0 vote161 views1 answer
How to link world bank data into r
R
0 vote250 views1 answer
Meaning of %>% R
R