Deskriptif Statistik

nama <- c("Dani","Andi","Budi","Dika","Reza","Ahmad","Toni","Dimas","Rendi","Surya")
bb <- c(100, 50, 67, 45, 78, 60, 49, 120, 56, 80)
tb <- c(180, 190, 200, 176, 166, 165, 177, 182, 169, 201)
kelas <- data.frame(nama, bb, tb)
kelas

##     nama  bb  tb
## 1   Dani 100 180
## 2   Andi  50 190
## 3   Budi  67 200
## 4   Dika  45 176
## 5   Reza  78 166
## 6  Ahmad  60 165
## 7   Toni  49 177
## 8  Dimas 120 182
## 9  Rendi  56 169
## 10 Surya  80 201

…

rbb<-mean(kelas$bb)
cat("Rata rata berat badan :",rbb, "kg", "\n")

## Rata rata berat badan : 70.5 kg

mbb<-mean(kelas$tb)
cat("Rata rata tinggi badan :",mbb, "cm" )

## Rata rata tinggi badan : 180.6 cm

…

modus<-function(x) {
  ur <- unique(x)
  ur[which.max(tabulate(match(x, ur)))]
}
modus_bb<-modus(bb)
cat("Modus berat badan :",modus_bb, "kg", "\n" )

## Modus berat badan : 100 kg

modus_tb<-modus(tb)
cat("Modus tinggi badan :",modus_tb, "cm" )

## Modus tinggi badan : 180 cm

…

range_bb<-range(bb) 
cat("Range data :", range_bb, "\n")

## Range data : 45 120

var_bb<-var(bb) 
cat("Variansi data :", var_bb, "\n")

## Variansi data : 592.5

sd_bb<-sd(bb) 
cat("Standar Deviasi data :", sd_bb, "\n")

## Standar Deviasi data : 24.34132

hist(kelas$bb, col = "blue",
     main = "Histogram Berat Badan Kelas",
     xlab = "Berat Badan (kg)",
     ylab = "Jumlah Orang")

boxplot(kelas$bb, col = "navy",
     main = "Box Plot Berat Badan Kelas",
     xlab = "Berat Badan (kg)",
     horizontal = TRUE)