t mean, eqn 3.7
yhat = X1*what;
s2 = (y-yhat)'*(y-yhat);
v = s2 + what'*X1'*X1*what/(g+1); % eqn below 3.8
Sigma = g/(g+1)*v/n*inv(X1'*X1);
vvar = diag(Sigma);


% unnormalized log p(data|Model i)
for i=1:(d+1)
   X1i =  X1; X1i(:,i) = []; % X1(:,models{i});
   q = 1; % num coeffs which are set to 0
   logprob(i) = -(d+1-q)/2 * log10(g+1) + ...
      -(n/2)*log10(y'*y - (g/(g+1))*y'*X1i*inv(X1i'*X1i)*X1i'*y);
end
logprobFull = -(d+1)/2 * log10(g+1) + ...
      -(n/2)*log10(y'*y - (g/(g+1))*y'*X1*inv(X1'*X1)