stichnoth

function [l g] = clogit_ll(param,data)

%% Data
y_1 = data(:,1,:);
y_2 = data(:,2,:);
y_3 = data(:,3,:);
y_4 = data(:,4,:);
y_5 = data(:,5,:);
y_6 = data(:,6,:);