R/val4symb.R

In pgirmess: Spatial Analysis and Data Mining for Field Ecologists

Defines functions val4symb

Documented in val4symb

val4symb<-function(x, FUN=mean, col=c("blue","red"),...){
    FUN <- match.fun(FUN)
    signe<-x-FUN(x,...)
    diam<-abs(x-FUN(x,...))
    color<-ifelse(signe<0,col[1],col[2])
    list(size=diam,col=color)
}

Try the pgirmess package in your browser