%Plot hight
hist(StudDataV2011(:,2))
boxplot(StudDataV2011(:,2))
boxplot(StudDataV2011(:,2),StudDataV2011(:,1))

%Make vectors with hight of men and women

indexMann=find(StudDataV2011(:,1)==1)
indexKvinne=find(StudDataV2011(:,1)==2)
hogdeMann=StudDataV2011(indexMann,2)
hogdeKvinne=StudDataV2011(indexKvinne,2)

%histograms
hist(hogdeMann)
hist(hogdeKvinne)

%mean
mean(hogdeMann)
mean(hogdeKvinne)

%Probability hypothesis test
1-normcdf(mean(hogdeMann),179.8,sqrt(6.5^2/91))
1-normcdf(mean(hogdeKvinne),167.2,sqrt(6.5^2/18))