%Step 2.2
figure;
bar(means);
title('Mean ASDS Scores for Elderly Caregivers in ICU');
xlabel('ASDS Items');
ylabel('Mean Score');
ylim([1 5]);
xticks(1:19);
grid on;
figure;
histogram(total_scores, 'BinWidth', 2);
title('Distribution of Total ASDS Scores for Elderly Caregivers in ICU');
xlabel('Total Score');
ylabel('Frequency');
xlim([min(total_scores)-2, max(total_scores)+2]);


%Step 3.3 
for i=1:19; 
text(mean(theta(i:i+1)), mean_ec(i)+0.2, num2str(mean_ec(i), '%.2f'),'Color','k','FontSize',15);
end

for i=1:19; 
text(mean(theta(i:i+1)), mean_h(i)+0.05, num2str(mean_h(i), '%.2f'),'Color','k','FontSize',15);
end
rticklabels({})
theta_positions = linspace(0, 360, 20);

for i=1:19;
T(i)=mean(theta_positions(i:i+1));
T_lable{i}=strcat('ASDS',num2str(i));
End
thetaticks(T)
thetaticklabels(T_lable)
