ожусь на начальных этапах машинного обучения в R, и мне трудно поверить, что нет пакетов для решения функции стоимости для различных типов регрессионных алгоритмов. Например, если я хочу решить функцию стоимости для логистической регрессии, ручной способ будет ниже:

https://www.r-bloggers.com/logistic-regression-with-r-step-by-step-implementation-part-2/

# Implement Sigmoid function
sigmoid <- function(z)
{
g <- 1/(1+exp(-z))
return(g)
}

#Cost Function
cost <- function(theta)
{
m <- nrow(X)
g <- sigmoid(X%*%theta)
J <- (1/m)*sum((-Y*log(g)) - ((1-Y)*log(1-g)))
return(J)
}

##Intial theta
initial_theta <- rep(0,ncol(X))

#Cost at inital theta
cost(initial_theta)

В функции glm есть способ автоматически сделать это? Или для каждого алгоритма, который я применяю, мне нужно сделать это вручную?