x=c(0,1,2,3)
f=c(8,11,5,1)
y=rep(x,f)
mean=sum(y)/length(y)
mean
mean(y)
median(y)

mid=seq(147.5,182.5,5)
f=c(4,6,28,58,64,30,5,5)
fr.distr=data.frame(mid,f)
fr.distr
mean=sum(mid*f)/sum(f)
mean

#findind median
midx=seq(147.5,182.5,5)
frequency=c(4,6,28,58,64,30,5,5)
fr.dist=data.frame(midx ,frequency)
cl=cumsum(frequency)
n=sum(frequency)
#finding serial no. of median class
ml=min(which(cl>=n/2))
h=5
c.f=cl[ml-1]
f=frequency[ml]
l=mid[ml]-h/2
median=l+(((n/2)-c.f)/f)*h
median


#mode
mode=3*median-2*mean
mode


#computing all measures of dispersion
x=c(1.2,1.4,1.3,1.6,1.0,1.5,1.7,1.1,1.2,1.3)
x
summary(x)
range=1.7-1.0
range
#coefficient of qd
qd=(1.475-1.200)/(1.475+1.200)
qd

var(x)
sd=sqrt(var(x))
sd

#mean deviation about mean
y=abs(x-mean(x))
mdm=sum(y)/length(y)
mean(y)
mdm
y=abs(x-median(x))
mdme=sum(y)/length(y)
mean(y)
mdme