Nothing
BTLikelihood <- function(dataframe, ability, decay.rate = 0){
df <- dataframe
u <- decay.rate
n1 <- nrow(df)
n <- nrow(ability) - 1
s <- 0
for(i in 1:n1){
a1 <- df[i, 1]
a2 <- df[i, 2]
C <- exp(-u * df[i, 5])
x <- ability[a1, 1]
y <- ability[a2, 1]
p <- ability[n + 1, 1] + x - y
q <- exp(p)
s <- s - (df[i, 3] * (p - log(q + 1)) + df[i, 4] * (-log(q + 1))) * C
}
s
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.