In MovingUngulate/Part: Ungulate Parturition Modeling and Predicting

title: "DEER Project Elk Neonate Status Update" output: pdf_document: dev: png html_document: null word_document: null params: tabby: tabby chks: chks vhist: vhist

\pdfminorversion=5 \pdfcompresslevel=9 \pdfobjcompresslevel=2

pdf.options(useDingbats = TRUE,compress=T)
library(knitr)
library(jpeg)
#library(grid)
#Sys.setenv(PATH = paste(Sys.getenv("PATH"), "C:/Program Files/MiKTeX/miktex/bin", sep=.Platform$path.sep))
# llist<-list.files('E:/Projects/DEER/AUTO/data',pattern='.Rdata',full.names=T)
# load(llist[1])
# load(llist[2])
# load(llist[3])
# load(llist[4])

tabby<-readRDS(params$tabby)
  vhist<-read.csv(params$vhist,stringsAsFactors = F)
  vhist<-vhist[complete.cases(vhist$Serial),]
  vhist<-vhist[which(vhist$Species=='EK'),]
      if(TRUE %in% (nchar(vhist$ActBD)>0)){
    vhist$ActBD<-as.POSIXct(paste0(vhist$ActBD,' 5'),'%m/%d/%Y %H',tz='MST')
      vhist<-vhist[is.na(vhist$ActBD),]
    }


#ll<-readRDS('/home/mhayes1/Desktop/DEERPTesting/L12.rds')

This is an automated updated for the DEER Project.\vspace{5mm}

\large\textbf {Report Date: r format(Sys.time(), '%d %B, %Y %H:%M')} \vspace{10mm}

\large\textbf {Birth Freqs}

tabby$Serial<-as.character(tabby$Serial)
tabby<-tabby[tabby$Serial %in% vhist$Serial,]
tabby$`Mom Freq`<-as.character(tabby$`Mom Freq`)
tabby$`VIT Freq`<-as.character(tabby$`VIT Freq`)
kd<-readRDS(params$chks)
tabby$Serial<-as.character(tabby$Serial)

kd[,c(1:3)]<-round(kd[,c(1:3)],digits=2)
kd<-kd[,c(4,1:3)]

tabby<-merge(tabby,kd,by.x='Serial',by.y='Serial',all.x=T)
tabby<-tabby[order(tabby$Pred1Check,decreasing = T),]

#names(tabby)[9:12]<-c('FPT50','FPT100','FPT150','FPT300')
tabby<-tabby[,c(1,2,4,(length(names(tabby))-2):length(names(tabby)))]


#tabby$Easting<-floor(tabby$LatestEasting)

kable(tabby,format='markdown',row.names=F,align='c',padding=0,caption='Birth Data')