knitr::opts_chunk$set(echo = FALSE) require(CTraxHelper)
raw<-readRDS('raw.RDS') t<-readRDS('t.RDS')
The raw data is decorated with:
For protocol sections 4 and 5, quadrant preference is computed on the basis of time and location.
garn<-list() for (i in 1: length(raw)) { garn[[i]]<-trxgarnish(raw[[i]],t) } names(garn)<-names(raw) vartype<-lapply(garn[[1]]$trx,class) rawvars<-colnames(raw[[1]]$trx) garnvars<-setdiff(names(vartype),rawvars)
The data is structured into a r length(garn)
-element garn
list that contains:
native variables from CTrax
r names(vartype[rawvars][vartype[rawvars]=="factor"])
r names(vartype[rawvars][vartype[rawvars]=="integer"])
r names(vartype[rawvars][vartype[rawvars]=="numeric"])
calculated variables:
r names(vartype[garnvars][vartype[garnvars]=="factor"])
r names(vartype[garnvars][vartype[garnvars]=="integer"])
r names(vartype[garnvars][vartype[garnvars]=="numeric"])
The list is saved to r paste(getwd(),"garn.RDS",sep="/")
.
saveRDS(garn,file="garn.RDS")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.