inst/structure/OUCRU_RCT/Analysis/ImportExport/3_CreateVAD.R

In lampk/Lmisc: Miscellaneous functions from LamPK

##******************************************************************************
## Create value-added dataset for analysis
## Initial version: 
##******************************************************************************

##******************************************************************************
# set up -----------------------------------------------------------------------
##******************************************************************************

## load required packages
pkg_list <- c("Hmisc", "dplyr", "reshape2", "car",
              "scales", "ggplot2", "gridExtra",
              "lubridate")
for (i in pkg_list) eval(parse(text = paste("library(", i, ")", sep = "")))

## paths
input <- file.path("..", "..", "Data", "Imported", "xxx.Rdata")

## load data
load(input)

##******************************************************************************
# format data ------------------------------------------------------------------
##******************************************************************************



##******************************************************************************
# manipulate data --------------------------------------------------------------
##******************************************************************************


##******************************************************************************
# export data ------------------------------------------------------------------
##******************************************************************************

## Rdata
save(..., file = file.path("..", "..", "Data", "VAD", "xxx.Rdata"))

## csv