#######################################
# T Testi.

T.eval = function (x)
{com=textConnection(x)
source(com); close(com)}

#######################################
# TR Espressioni regolari.

Tr.grep = function (E,x,parole=F)
grep(E,x,perl=T,value=parole)

Tr.partitrovate = function (E,a)
{ris=regexpr(E,a,perl=T)
pos=as.numeric(ris)
lun=as.numeric(attr(ris,'match.length'))
substring(a,pos,pos+lun-1)}

# Vettore delle posizioni in cui E
# si trova negli elementi di v.
# -1 quando un elemento non corrisponde.
Tr.pos = function (E,a)
{as.numeric(regexpr(E,a,perl=T))}