---

title: “Untitled” output: html_document date: “2025-04-18”

 data<-data.frame(value=rnorm(68,85,74))
 hist(data$value, col="aquamarine4", main="Histogram", xlab="type", ylab="times")

 hist(data$value, breaks=85,91,74, col="aquamarine4", main="Histogram", xlab="type", ylab="times")