FIRE Report

Packages

## Warning: package 'tidyverse' was built under R version 3.4.4

## -- Attaching packages ----------------------------------------------------------------------------------------------------------------------- tidyverse 1.2.1 --

## v ggplot2 3.0.0     v purrr   0.2.5
## v tibble  1.4.2     v dplyr   0.7.6
## v tidyr   0.8.1     v stringr 1.3.1
## v readr   1.1.1     v forcats 0.3.0

## Warning: package 'ggplot2' was built under R version 3.4.4

## Warning: package 'tibble' was built under R version 3.4.3

## Warning: package 'tidyr' was built under R version 3.4.4

## Warning: package 'readr' was built under R version 3.4.3

## Warning: package 'purrr' was built under R version 3.4.4

## Warning: package 'dplyr' was built under R version 3.4.4

## Warning: package 'stringr' was built under R version 3.4.4

## Warning: package 'forcats' was built under R version 3.4.3

## -- Conflicts -------------------------------------------------------------------------------------------------------------------------- tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()

## Warning: package 'lubridate' was built under R version 3.4.4

## 
## Attaching package: 'lubridate'

## The following object is masked from 'package:base':
## 
##     date

## Warning: package 'quantreg' was built under R version 3.4.4

## Loading required package: SparseM

## 
## Attaching package: 'SparseM'

## The following object is masked from 'package:base':
## 
##     backsolve

## Warning: package 'openxlsx' was built under R version 3.4.4

## 
## Attaching package: 'gridExtra'

## The following object is masked from 'package:dplyr':
## 
##     combine

## Warning: package 'scales' was built under R version 3.4.4

## 
## Attaching package: 'scales'

## The following object is masked from 'package:purrr':
## 
##     discard

## The following object is masked from 'package:readr':
## 
##     col_factor

## Warning: package 'DT' was built under R version 3.4.4

inputs

Modify the working directory in the lines below, indicate raw data filename and key filename

print(today())

## [1] "2018-12-14"

data_dir<-"C:/Users/Admin/OneDrive/Documents/phenomics/FIRE/trial4/"

log_dr <- data_dir
setwd(data_dir)

raw <- read_csv("FIRE_12.14.2018.csv")

## Parsed with column specification:
## cols(
##   Location = col_integer(),
##   Tag = col_character(),
##   Date = col_character(),
##   Entry = col_time(format = ""),
##   Exit = col_time(format = ""),
##   `Ent Wt` = col_double(),
##   `Ext Wt` = col_double(),
##   Consumed = col_double(),
##   Weight = col_double(),
##   `Topup Amount` = col_double()
## )

key <- read_csv("Key_4.csv")

## Warning: Missing column names filled in: 'X10' [10]

## Parsed with column specification:
## cols(
##   Tag = col_double(),
##   Ear_Tag = col_integer(),
##   `Ear notch` = col_character(),
##   `Back number` = col_integer(),
##   `Nursery Pen` = col_character(),
##   `Fire Feeder Pen` = col_character(),
##   `Front LS` = col_integer(),
##   `Middle LS` = col_integer(),
##   `Rear LS` = col_integer(),
##   X10 = col_character(),
##   `Note:` = col_character()
## )

min(raw$Date)

## [1] "12/10/2018"

Function definitions

Report last day

plot_obj<- report_fire(raw,key, report_dir= log_dr, startlag= -1)

## Warning: package 'bindrcpp' was built under R version 3.4.4

spark_plot(report.object=plot_obj, lag=-1)

Table reports

Feeder Summary

Animal Summary

Report Today

plot_obj<- report_fire(raw,key, report_dir= log_dr, startlag= 0)
spark_plot(report.object=plot_obj, lag=0)

## Warning in qt((1 - level)/2, df): NaNs produced

## Warning in qt((1 - level)/2, df): NaNs produced

## Warning in qt((1 - level)/2, df): NaNs produced

Table reports

Feeder Summary

Animal Summary

Report Today

plot_obj<- report_fire(raw,key, report_dir= log_dr, startlag= -10,endlag=0)
hot_plot(report.object=plot_obj)

## Warning: Removed 2 rows containing missing values (geom_point).

Full Data