#######################################
# DTR Tabelle - funzioni per le righe.

# Tabella che si ottiene da tab
# selezionando le righe in ...
Dtr = function (tab,...)
{tab=subset(tab,
  row.names(tab) %in% c(...))
merge(tab,tab)}
# Per riordinare le righe.

# Tabella che si ottiena da tab
# aggiungendo una nuova riga
# rappresentata da a o da list(a,b,...).
Dtr.agg = function (tab,a,b,...)
{if (!missing(b)) a=list(a,b,...)
names(a)=colnames(tab)
tab=rbind(tab,data.frame(a))
merge(tab,tab)}
# Per riordinare le righe.

# Righe di tab che
# soddisfano la condizione.
Dtr.cond = function (tab, cond)
{tab=subset(tab,cond)
merge(tab,tab)}
# Per riordinare le righe.

# Tabella che si ottiene da tab
# sostituendo una riga n con
# a o list(a,b,...).
Dtr.sost = function (tab,n,a,b,...)
{if (!missing(b)) a=list(a,b,...)
tab=subset(tab,row.names(tab)!=n)
Dtr.agg(tab,a)}

# Tabella che si ottiene da tab
# togliendo le righe in ...
Dtr.togli = function (tab,...)
{tab=subset(tab,
  !(row.names(tab) %in% c(...)))
merge(tab,tab)}
# Per riordinare le righe.