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

4 votes289 views1 answer
How to do linear regression in r
R
1 vote158 views1 answer
Create file in r
R
0 vote152 views3 answers
Del row matrix r
R
0 vote182 views1 answer
Read file in r EOF within quoted string
R
0 vote144 views1 answer
Find q1, q3 and iqr in r
R
0 vote149 views1 answer
Slope by row r
R
0 vote150 views1 answer
Digits in format and formatc in r
R
0 vote167 views1 answer
Attr(* label )= chr in r
R
0 vote156 views2 answers
List to dataframe in r
R
0 vote163 views1 answer
How to set the first column as row names in r
R