function [Fval,Model]=HW10_Solution_Exponential(Theta,Xvec,Data)

% The function that I want to find the parameters is y(t)=A*exp(-t/tau)
A=Theta(1);
tau=Theta(2);

% Xvec is T vector from Data
Model=A*exp(-Xvec./tau);

f = @(m,d) sum(m-d.*log(m));

Fval=f(Model,Data);

end 