In MovingUngulate/Part: Ungulate Parturition Modeling and Predicting

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

pdf.options(useDingbats = TRUE,compress=T)
library(knitr)
library(jpeg)


tabby<-readRDS(params$tabby)
ll<-readRDS(params$ll)

\begin{figure}[h] \centerline{\includegraphics{r params$plotlink}} \end{figure}

plotpath<-params$plotlink
pp<-gsub(params$basepath,'',plotpath)
pp<-gsub('.png','',pp)
pp<-as.numeric(gsub('.','',as.character(as.numeric(paste0(substr(pp,1,3),'.',substr(pp,4,7)))),fixed=T))
ll$MatchFreq<-gsub('.','',as.character(ll$`Mom Freq`),fixed=T)
a<-ll[which(as.numeric(ll$MatchFreq)==as.numeric(pp)),]

a<-a[order(a$TelemDate),]

if(!('AID' %in% names(a))){
colnames(a)<-c('MomFreq','#Fetus','VitFreq','Serial','Date','Easting','Northing')
a<-a[,-nrow(a)]
a$MomFreq<-as.character(a$MomFreq)
a$VitFreq<-as.character(a$VitFreq)

a<-a[,1:7]
}
if('AID' %in% names(a)){
  colnames(a)<-c('MomFreq','AID','#Fetus','VitFreq','Serial','Date','Easting','Northing')
a<-a[,-nrow(a)]
a$MomFreq<-as.character(a$MomFreq)
a$VitFreq<-as.character(a$VitFreq)

a<-a[,1:8]
}

kable(a,format='markdown',row.names=F,align='c',digits=2,padding=0,caption='Non Birth Freqs')