getpos <- function(x, vorl="v"){
vot <- x[grep( "v", names(x) )] ; lab <- x[grep( "l", names(x) )];
if (vorl=="v") {vot[vot>0]} else {lab[vot>0]};
}
> apply(dat, MARGIN=1, FUN=function(x2) getpos(x2, vorl="l") )
for(i in 1:length(mytxtfiles)){
lapply(mytxtfiles[i], FUN=function(txt_name) dlm_OpenNLR(txt_name))
}
