SYNTAX

Perlakuan_A <- runif(5, 10, 100)
Perlakuan_B <- runif(5, 10, 100)
Perlakuan_C <- runif(5, 10, 100)
Perlakuan_D <- runif(5, 10, 100)
Perlakuan_E <- runif(5, 10, 100)
data.perlakuan <- data.frame(Perlakuan_A,Perlakuan_B,Perlakuan_C,Perlakuan_D,Perlakuan_E)
print(data.perlakuan)
##   Perlakuan_A Perlakuan_B Perlakuan_C Perlakuan_D Perlakuan_E
## 1    75.15846    58.24544    95.96680    69.66148    36.62413
## 2    23.04315    90.69492    16.42271    22.28662    31.76290
## 3    58.72800    63.06766    36.97829    35.26181    55.47794
## 4    81.06605    83.85319    81.11348    30.69779    49.89055
## 5    15.04261    14.22494    73.02753    28.62361    22.57688

PLOT HISTOGRAM

hist(data.perlakuan$Perlakuan_A, main="Plot Histogram Perlakuan A")

hist(data.perlakuan$Perlakuan_B, main="Plot Histogram Perlakuan B")

hist(data.perlakuan$Perlakuan_C, main="Plot Histogram Perlakuan C")

hist(data.perlakuan$Perlakuan_D, main="Plot Histogram Perlakuan D")

hist(data.perlakuan$Perlakuan_E, main="Plot Histogram Perlakuan E")

PLOT BOXPLOT

boxplot(data.perlakuan, main="Plot Boxplot", col = c("red"))

KORELASI

cor(data.perlakuan)
##             Perlakuan_A Perlakuan_B Perlakuan_C Perlakuan_D Perlakuan_E
## Perlakuan_A   1.0000000   0.4128340  0.52419778   0.5779447  0.73874112
## Perlakuan_B   0.4128340   1.0000000 -0.39775330  -0.1268350  0.52364201
## Perlakuan_C   0.5241978  -0.3977533  1.00000000   0.6555731 -0.07618932
## Perlakuan_D   0.5779447  -0.1268350  0.65557309   1.0000000  0.06871600
## Perlakuan_E   0.7387411   0.5236420 -0.07618932   0.0687160  1.00000000