title: "The Most Effective Platform Based on Likes & Shares"

author: "Emily Vanselow"

output: pdf$\_$document

$---$

$```\{$r setup, include$=$FALSE$\}$

knitr::opts$\_$chunk$set$($echo $=$ TRUE$)$

socialmedia $<-$ read.csv$("$SocialMediaData$.$csv$")$

library$($tidyverse$)$

library$($Hmisc$)$

library$($lubridate$)$

$```$

## Background

## Select$/$Create Variables

$```\{$r$\}$

total$\_$engagement $<-$ socialmedia $\%>\%$

select$($Platform$,$ Shares, Likes$)$

$```$

## Filter

$```\{$R$\}$

total$\_$engagement $<-$ total$\_$engagement $\%>\%$

filter$($Likes $>=150,$ Shares $>=50)$

$```$

## Slice

$```\{$R$\}$

total$\_$engagement $<-$ total$\_$engagement $\%>\%$

group$\_$by$($Platform$)$

$```$

## Estimate

$```\{$R$\}$

total$\_$engagement $\%>\%$

summa

$```$

## Test

## Next Steps