In PaolaCognigni/CTraxHelper: CTrax Helper

knitr::opts_chunk$set(echo = FALSE)
require(CTraxHelper)

datadir<-dirname(file.choose())
workingdir<-getwd()

The raw data directory r datadir contains the following CTrax output files in .mat format, which are indexed by these handles:

filenames<-list.files(datadir)[grepl('.mat',list.files(datadir))]
filepaths<-paste(datadir,filenames,sep="/")

flynames<-paste(
  switch(as.character(grepl("ale",datadir)+grepl("emale",datadir)), '1'='m', '2'='f', '0'='n'),
  substr(filenames,regexpr(" ",filenames)+1,regexpr("mat",filenames)-2),
  sep="")

flynames<-gsub("ctrl","0",flynames)

cbind("files"=filenames,"handles"=flynames)

The imported data is loaded into a list raw of r length(flynames) named elements. The list is exported as the file r paste(workingdir,"raw.RDS",sep="/").

raw<-list()
nflies<-length(flynames)
for (i in 1:nflies) {
    raw[[i]]<-trxread(filepaths[i])
    }
names(raw)<-flynames
saveRDS(raw,file="raw.RDS")

PaolaCognigni/CTraxHelper documentation built on May 7, 2019, 11:57 p.m.