R/logit.loss.R
In jingmafdu/TestBMN: Testing for binary Markov networks
Defines functions
logit.loss
logit.loss <-
function(X, r, theta) {
n <- nrow(X)
u <- X[,-r] %*% theta[r,-r]
val = log(exp(u) + exp(-u)) - X[, r] * u
return(mean(val))
}
jingmafdu/TestBMN documentation built on Feb. 20, 2022, 5:24 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Defines functions logit.loss
logit.loss <-
function(X, r, theta) {
n <- nrow(X)
u <- X[,-r] %*% theta[r,-r]
val = log(exp(u) + exp(-u)) - X[, r] * u
return(mean(val))
}
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.