# NOT RUN {
if("LCFdata" %in% .packages(all.available=TRUE)){
data(eegWide)
dat<-eegWide
rm(eegWide)
gc(TRUE,TRUE)
# per subject trimming
dat <- perSubjectTrim.fnc(dat, response = "Fz",
subject = "Subject", trim = 2.5)$data
# ......
# n.removed = 5130
# percent.removed = 1.584507
}
# }
Run the code above in your browser using DataLab