Marks <- read.csv("C:/Users/localadmin/Desktop/Marks.csv")
View(Marks)
Marks
##             Names Marks
## 1        Jagadesh    19
## 2            Prem    23
## 3        Velumani    23
## 4           Navya    24
## 5          Manasa    25
## 6        Sai Teja    25
## 7          Murali    26
## 8      Sharavanan    26
## 9      Leelavathi    27
## 10          Pavan    27
## 11       Ravi Tej    27
## 12         Shyama    27
## 13         Sujith    28
## 14         Vijay     28
## 15 Chandra Sekhar    29
## 16          Rekha    30
hist(Marks$Marks,main = "R Assessment Results",breaks=15)
lines(density(Marks$Marks),col=3)

summary(Marks)
##             Names        Marks      
##  Chandra Sekhar: 1   Min.   :19.00  
##  Jagadesh      : 1   1st Qu.:24.75  
##  Leelavathi    : 1   Median :26.50  
##  Manasa        : 1   Mean   :25.88  
##  Murali        : 1   3rd Qu.:27.25  
##  Navya         : 1   Max.   :30.00  
##  (Other)       :10
pairs(Marks)