TUGAS MDR_G1401221027

Data

datatugas <- data.frame(
  Id = c(1,2,3,4,5),
  Age = c(15,17,16,18,18),
  Math = c(7,8,5,9,10),
  English = c(10,9,10,8,7),
  Science = c(9,7,8,6,10)
)

Plots

boxplot(datatugas, main="Plot Boxplot", col="red")

Correlation

cor(datatugas)

##                 Id        Age        Math    English     Science
## Id       1.0000000  0.8488747  0.57539646 -0.8488747  0.10000000
## Age      0.8488747  1.0000000  0.77751592 -0.9117647 -0.24253563
## Math     0.5753965  0.7775159  1.00000000 -0.9170701  0.08219949
## English -0.8488747 -0.9117647 -0.91707006  1.0000000 -0.12126781
## Science  0.1000000 -0.2425356  0.08219949 -0.1212678  1.00000000