glraster<-function()system("g.list rast")
glvector<-function()system("g.list vect")

grinfo<-function()system("g.region -p")
greinicia<-function()system(paste("g.region -d;d.erase",sep=""))
gresolucion<-function(x=100)system(paste("g.region res=",sep="",x))

dminicia<-function(x=0)system(paste("d.mon x",sep="",x))
dmselecciona<-function(x=0)system(paste("d.mon select=x",sep="",x))
dmcierra<-function(x=0)system(paste("d.mon stop=x",sep="",x))

dborrar<-function()system("d.erase")
dzoom<-function(x=0)system("d.zoom")


draster<-function(x="-h")system(paste("d.rast ",sep="",x))
dbarras<-function(x="-h")system(paste("d.histogram ",sep="",x))
drastercodigo<-function(x="-h")system(paste("d.rast.num ",sep="",x))
dvector<-function(x="-h")system(paste("d.vect ",sep="",x))
dhis<-function(h="",i="",s=""){
 saturacion=""
 if(s!="") saturacion=paste(" s_map=",s,sep="")
 system(paste("d.his"," h_map=",h," i_map=",i,saturacion,s,sep=""))}
dleyenda<-function(x="-h")system(paste("d.legend ",sep="",x))
drejilla<-function(x="-h")system(paste("d.grid ",sep="",x))
dqueenraster<-function(x="")system(paste("d.what.rast ",sep="",x))
ddonde<-function(x="")system(paste("d.where ",sep="",x))



rinforme<-function(mapas="-h",unidades="me"){
system(paste("r.report ",mapas," units=",unidades,sep=""))
}

restadisticos<-function(x="-h")system(paste("r.univar ",sep="",x))
rdescribe<-function(x="-h")system(paste("r.info ",sep="",x))
vdescribe<-function(x="-h")system(paste("v.info ",sep="",x))
rrecodifica<-function(x="-h",y="")system(paste("r.recode ",sep="",x," output=",y))

rcalculamap<-function(x="-h")system(paste("r.mapcalc ",x,sep=""))

rbuffer<-function(x="-h",y="b",d=100){
system(paste("r.null ",x," setnull=0",sep=""))
system(paste("r.buffer ",sep="",x," output=",x,y," distance=",d))
system(paste("r.null ",x," null=0",sep=""))
}

rgrupos=function(x="-h",y="grup")system(paste("r.clump ",sep="",x," output=",x,y))

rdelicuencas<-function(x="-h",c="cuencas",s="cauces",t=200)system(
paste("r.watershed elevation=",x,
      " threshold=",t,
      " basin=",c,
      " stream=",s,
      sep="")
)