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 vote178 views1 answer
R double and triple colons
R
2 votes180 views1 answer
Create a table from dataframe in r
R
1 vote251 views2 answers
R make directory
R
0 vote162 views2 answers
Convert a row to a column in r
R
0 vote119 views1 answer
How to loop in r using a character in a string
R
1 vote170 views1 answer
Select columns without na in r
R
0 vote165 views1 answer
How to convert categorical data to numerical data in r
R
0 vote157 views1 answer
R count distinct dplyr
R
0 vote174 views1 answer
R select column names starting with
R
0 vote159 views1 answer
Slope by row r
R