%lntmu_r.m: Procedure to evaluate the conditional mean function for
%truncated lognormal transition density, used in lntden_r.m.

function[x]=lntmu_r(r);
global mu_r ar_r;
x=mu_r+ar_r*log(r);