Чтобы вычислить оптимальный тета, например, в логистической регрессии, я должен создать costFunction (функция, которая должна быть минимизирована), которая затем передается fminunc для получения оптимальной тета. Кроме того, если градиент costFunction может быть вычислен, я устанавливаю параметр "GradObj" на 'on', используя
options = optimset('GradObj','on');
и закодируйте функцию costFunction, чтобы он возвращал в качестве второго выходного аргумента значение градиента g из X. Тогда я даю
[theta, cost] = fminunc(@(t)(costFunction(t, X, y)), initial_theta, options);
где X - матрица данных, а y - ответ. Как я могу реализовать выше в R?