data<-read.csv("C:\\users\\dell\\desktop\\data.csv")

View(data)
head(data)

##   Supplier.A Supplier.B Supplier.C
## 1       6.15       7.87       7.41
## 2       6.22       5.21       3.61
## 3       6.76       7.94       7.23
## 4       4.29       7.36       5.53
## 5       7.08       6.17       3.97
## 6       4.13       5.99       4.95

head(data,2)

##   Supplier.A Supplier.B Supplier.C
## 1       6.15       7.87       7.41
## 2       6.22       5.21       3.61

tail(data)

##     Supplier.A Supplier.B Supplier.C
## 115       5.43       5.70       4.20
## 116       5.85       4.53       4.27
## 117       5.04       8.06       6.39
## 118       5.68       7.14       4.60
## 119       4.77       4.84       6.15
## 120       3.57       4.55       5.28

tail(data,2)

##     Supplier.A Supplier.B Supplier.C
## 119       4.77       4.84       6.15
## 120       3.57       4.55       5.28

mean(data$Supplier.A)

## [1] 5.713917

attach(data)
mean(Supplier.B)

## [1] 6.096417

mean(Supplier.C)

## [1] 5.945167

mean(Supplier.A)

## [1] 5.713917

median(Supplier.A)

## [1] 5.645

median(Supplier.B)

## [1] 6.185

median(Supplier.C)

## [1] 6.015

sd(Supplier.A)

## [1] 1.349004

sd(Supplier.B)

## [1] 1.389692

sd(Supplier.C)

## [1] 1.451699

barplot(Supplier.A)

barplot(Supplier.B)

barplot(Supplier.C)

hist(Supplier.A)

hist(Supplier.B)

hist(Supplier.C)

qqnorm(Supplier.A)
qqline(Supplier.A)

qqnorm(Supplier.B)
qqline(Supplier.B)

qqnorm(Supplier.C)
qqline(Supplier.C)