f=c(12,14,8,6,10)
lcf=cumsum(f)
lcf1=c(0,lcf)
lcf1
rf=rev(f)
rf
cf=cumsum(rf)
cf
gcf=rev(cf)
gcf
gcf1=c(gcf,0)
gcf1
lbx=seq(100,200,20)
lbx
ubx=seq(100,200,20)
ubx
plot(ubx,lcf1,type="0",xlim=c(100,200),main="Ogive Curve",xlab="Daily Income",ylab="No.of Workers",lwd=2)
lines(lbx,gcf1,type="0",xlim=c(100,200),lwd=2)