omnidroid-bias.Rmd

---
title: "omnidroid-bias"
author: "Jack Bandy"
date: "2/29/2020"
output: html_document
---

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

## Read in the data
```{r}
require(ggpubr)
df = read.csv('supers.csv')
df = subset(df,Sex!='na')
df = subset(df,Threat!='na')
df = subset(df,Rounds!='na')
df$Threat=as.numeric(df$Threat)
df$Rounds=as.numeric(df$Rounds)
```

# visual difference of threat
```{r}
ggboxplot(df,x="Sex",y="Threat",color="Sex")
t.test(Threat ~ Sex, data=df)
```

# visual difference of rounds
```{r}
ggboxplot(df,x="Sex",y="Rounds",color="Sex")
t.test(Rounds ~ Sex, data=df)
```