Displaying 1 result from an estimated 1 matches for "addition_to_denom".
2011 Nov 01
1
condition has length > 1 for LL denominator
..._3)
(i.e. P_arrive_depart).
get_denominator = function(intercept, periods_per_day)
{
denominator = array("(", nrow(results))
for (arrival in 1:periods_per_day)
{
for (departure in arrival:periods_per_day)
{
while (arrival <= intercept & intercept <= departure)
{
addition_to_denom = paste("P", arrival, departure, sep = "_")
if (nchar(denominator) == 1)
{
denominator = paste(denominator, "exp(", addition_to_denom, ")", sep =
"")
}
else
{
denominator = paste(denominator, " + exp(", addition_t...