5.4

{r setup, include=FALSE} knitr::opts_chunk$set(echo = TRUE)

5.4

Load Tidyverse {r} install.packages("tidyverse") Load the tidyverse library into the markdown {r} library(tidyverse) {r} df <- read_csv("Playlist 24-25 - Playlist.csv") {r} gf<-df%>%count(Genre)

```{r} gf%>%mutate(probability=n/106)

```{r}
sf<-sample_n(df,10)
print(sf)

{r} sf%>%mutate(probability=n/10) ``

{r} sf<-sample_n(df,10)

{r} sf%>%count(Genre) {r} sf<-sf%>%count(Genre) ```{r} sf%>%mutate(probability=n/10)

``` Analyze & Synthesize