У меня есть следующий код R
ldf <- function(x, prior, mu, covar)
{
x <- matrix(as.numeric(diabetes), ncol=1)
log(lda.res$prior) - (0.5*t(lda.res$mean)%*%solve(cov_all)%*%lda.res$mean) + (t(x)%*%solve(covar)%*%mu)
}
Я понимаю, что код - это функция, которая будет вычислять линейную дискриминантную функцию.
Однако я не уверен в том, что делает следующий код.Это следует непосредственно после кода выше.
Я знаю, что это вычисление линейной дискриминантной функции для пациента, но я не уверен, что означает каждая строка.
id <- 1
dfs <- rep(0, G)
for(g in 1:G)
{
dfs[g] <- ldf(diabetes[id,2:4], lda.res$prior[g], lda.res$mean[g,], cov_all)
}
dfs
levels(diabetes$class)[dfs == max(dfs)]
Заранее благодарю за любую помощь!