eval_affine_decomp.m

function R = eval_affine_decomp(R_comp_ptr,R_coeff_ptr,model,model_data)
%function R = eval_affine_decomp(R_comp_ptr,R_coeff_ptr,model,model_data)
%
% function returning either the components, coefficients or their
% linear combination depending on model.decomp_mode, where
% expected argument list: R_comp_ptr(model,model_data);
% R_coeff_ptr(model);

if model.decomp_mode == 2
  R = R_coeff_ptr(model);
else
  if model.decomp_mode == 1
    R = R_comp_ptr(model,model_data);    
  else
    Rcomp = R_comp_ptr(model,model_data);    
    Rcoeff = R_coeff_ptr(model);
    R = lincomb_sequence(Rcomp,Rcoeff);
  end;
end;

%| \docupdate