R/maxmean.op.R

maxmean.op <-
function(zj){
     m=length(zj)
     sc.po =  sum( ifelse(zj>=0, zj, 0)) /m
     sc.ne =  sum( ifelse(zj<0, zj, 0) ) /m
     sc = c(sc.po, sc.ne)
     return(    tn=sc[which.max( abs(sc) ) ]  )
    }

Try the sgRSEA package in your browser

Any scripts or data that you put into this service are public.

sgRSEA documentation built on May 2, 2019, 2:47 p.m.