Publications by Sam Rowe
Evaluation of four predictive algorithms for intramammary infection status in late lactation cows
library(knitr) library(dplyr) ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## filter, lag ## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union library(broom) #Set WD ---- wd <- function(){setwd("~/Dropbox/R backup/2020/IMI cohort")} wd1 <- f...
4236 sym R (38948 sym/43 pcs) 2 img
JDS.2020-19288.R1.Part1
PART 1: Initial analyses and clinical mastitis / removal from the herd library(knitr) library(readr) knitr::opts_chunk$set(echo=TRUE, warning=FALSE, message=FALSE) #Set working directory ---- #PC #wd <- function(){setwd("C:/Users/rowe0122/Dropbox/R backup/2020/IMI cohort"")} #Mac wd <- function(){setwd("~/Dropbox/R backup/2020/IMI cohort")}...
7400 sym R (105504 sym/240 pcs) 88 img
JDS.2020-19288.R1.Part3
PART 3 - Subclinical mastitis analysis library(knitr) library(readr) library(ggplot2) library(survminer) ## Loading required package: ggpubr ## Loading required package: magrittr library(dplyr) ## Warning: package 'dplyr' was built under R version 4.0.2 ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ...
4252 sym R (24667 sym/76 pcs) 23 img
JDS.2020-19288.R1.Part2
Part 2: Milk yield analysis library(knitr) library(readr) library(ggplot2) library(survminer) ## Loading required package: ggpubr ## Loading required package: magrittr library(dplyr) ## Warning: package 'dplyr' was built under R version 4.0.2 ## ## Attaching package: 'dplyr' ## The following objects are masked from 'package:stats': ## ## ...
2624 sym R (57559 sym/120 pcs) 72 img
BDD Sampling strategy
#recode names of farms herdnumber <- data %>% group_by(herd) %>% summarise(herd.number = n()) herdnumber <- herdnumber %>% mutate(herd.number = row_number()) data <- merge(herdnumber %>% select(herd,herd.number),data,by="herd") data$herd <- paste0("Herd ",data$herd.number) #dput(data) Prevalence of cow-level DD by farm data %>% tabyl...
1695 sym R (11926 sym/48 pcs) 8 img 5 tbl
Negatively Controlled Trail DCT
Acknowledgements Author list for this study: Author affiliations: pre code { white-space: } library(knitr) library(readr) library(tidyverse) library(ggplot2) library(janitor) load("data.Rdata") Inspect Data print(summarytools::dfSummary(data,valid.col=FALSE, graph.magnif=0.8, style="grid"), method = "render") Data Frame Summary data Dimensi...
1050 sym R (98934 sym/127 pcs) 44 img 17 tbl
Analysis log for: Can Apps be Used to Formulate Fluid Therapy Plans in Veterinary Medicine?
Authors are from: Sydney School of Veterinary Science, The University of Sydney, Camden, New South Wales 2570, Australia ” Import data, run library library(readxl) library(tidyverse) library(lme4) library(broom.mixed) library(performance) library(see) library(patchwork) library(knitr) library(janitor) data <- read_excel("data_fluid_app.xlsx") d...
891 sym R (50144 sym/47 pcs) 4 img 5 tbl
SDCT x Milk Yield Interim
library(knitr) library(readr) library(lme4) library(emmeans) library(geepack) library(table1) library(ggplot2) library(tidyverse) library(janitor) library(psych) library(performance) cow <- readRDS("~/Dropbox/R backup/2021/SDCT.Milkyield/sdct.my.cow.rds") qtr <- readRDS("~/Dropbox/R backup/2021/SDCT.Milkyield/sdct.my.qtr.rds") dhi <- readRDS("~/...
4280 sym R (229070 sym/351 pcs) 102 img 113 tbl
Bedding bacteria count correlations: Exploratory analysis
library(stats) library(tidyverse) ## ── Attaching packages ─────────────────────────────────────── tidyverse 1.3.0 ── ## ✓ ggplot2 3.3.5 ✓ purrr 0.3.4 ## ✓ tibble 3.0.4 ✓ dplyr 1.0.2 ## ✓ tidyr 1.1.2 ✓ stringr 1.4.0 ## ✓ readr ...
561 sym R (7786 sym/31 pcs) 6 img
Survey of bulk milk pathogens in Australian dairy herds
library(tidyverse) library(readxl) library(janitor) #library(table1) # install.packages("furniture") Import enrollment data enrollment <- read_excel("Bulk milk AMR data entry.xlsx", col_types = c("numeric", "text", "numeric", "numeric", "numeric", "numeric", "numeric", "text", "date", "date", "date", "date", "date"...
437 sym R (6235 sym/17 pcs) 48 img 81 tbl