x<-c(7,28,56,63,70,98,34);x
## [1]  7 28 56 63 70 98 34
mean(x)
## [1] 50.85714
var(x)
## [1] 915.4762
sd(x)
## [1] 30.25684
median(x)
## [1] 56
hist(x, main="mathematics", xlab="marks", ylab="females",col = "green")

y<-c(10,40,70,30,50,90,150);y
## [1]  10  40  70  30  50  90 150
hist(y,main="COMPUTER",xlab = "LAUREEN",ylab = "ANZEMO",col = "blue")