SMSavgPerWeek = zeros(PatOldestMemberDays/7,length(PatHospIdx3));
for i=1:length(PatHospIdx1)
    idx = PatHospIdx1(i);
    pat = Pat(idx);
    endOfWeek = pat.smsPat(1,11)+7;
    PatSMSEnd = pat.smsPat(end,11);
    weekNumber = 1;
    smsPerWeek = 0;
    lastRecord = 1;
    sumOfSMS = 0;
    %over all SMS
    for j=1:size(pat.smsPat,1)
        if(pat.smsPat(j,11)<= endOfWeek)
            smsPerWeek = smsPerWeek + 1;
            sumOfSMS = sumOfSMS + sum(pat.smsPat(j,1:10));
        else
        %set next week
        SMSavgPerWeek(weekNumber, i) = sumOfSMS/smsPerWeek;
        sumOfSMS = sum(pat.smsPat(j,1:10));
        smsPerWeek = 1;
        weekNumber = weekNumber + 1;
        endOfWeek = endOfWeek + 7;
        end
    end
end