WGData.R

#'
#' Create RData sets for guinea pig data
#' 
#' WGTreat.Data One column for each treatment
#' 
#' WGObs.Data One row for each observation
#' 

library(readxl)

WGTreat.Data <- read_excel("Data/Excel/WeightGain.xlsx", 
                              range = "B2:E7")
WGTreat.Data

WGObs.Data<-WGTreat.Data %>%
  gather(key="Treatment",value="WG",A:D) 

WGObs.Data

save(WGTreat.Data,file="Data/RData/WGTreatData.RData")

save(WGObs.Data,file="Data/RData/WGObsData.RData")