Tugas Mandarel Sesi UAS

install.packages(“dplyr”) library(dplyr)

#DATASET str(PlantGrowth)

#SUMMARISE summary <- PlantGrowth %>% summarise(ratarata_berat = mean(weight)) summary

#ARRANGE arranged <- PlantGrowth %>% arrange(desc(weight)) head(arranged)

#FILTER filtered <- PlantGrowth %>% filter(group == “trt2”) filtered

#MUTATE mutated <- PlantGrowth %>% mutate(weight_grams = weight * 1000) mutated

#SELECT selected <- PlantGrowth %>% select(weight) selected

#KOMBINASI 2 FUNGSI combined <- PlantGrowth %>% filter(group == “trt2”) %>% summarise(avg_weight_trt2 = mean(weight)) combined