R/cextremos.R

Defines functions cextremos

cextremos <-
function(nval) {
            vmax<-0
            vmin<-0 
            if (nval>500)  nval <- 500    
            valores= .Fortran("extremosbaroni",as.integer(nval), 
                                   vmax=as.double(vmax), vmin=as.double(vmin)) 
            return(list(vmin=valores$vmin,vmax=valores$vmax))
            }

Try the RMacoqui package in your browser

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

RMacoqui documentation built on May 31, 2017, 3:43 a.m.