@gagz

data <-c(10,12,15,16,18,21,24,25,28,29,30,35,40) histogram <-hist(data,plot=FALSE,breaks=5) hist(data,breaks=5,col="lightblue",main="histogram",xlab="values",ylab="frequency")

# median x <-c(10,12,14,16,18,20,22) f <-c(2,5,12,20,10,7,3) N <-print(sum(f)) lcf <-print(cumsum(f)) df <-print(data.frame(x,f,lcf)) median_index <-print(which(lcf>=N/2)[1]) median <-print(x[median_index])

# scatter plot x=c(16,22,28,24,29,25,16,23,24) y=c(36,42,57,40,54,51,34,37,45) plot(x,y,main="scatter plot",xlab="test scores",ylab="sales", xlim=c(15,35),ylim=c(30,60)) plot(x,y, main,xlab,ylab,xlim,ylim,axes)