R/cpadreshijos.R

cpadreshijos <-
function (etprevial, etpreviau) {
      nvar<-length(etprevial)+1
      PadresHijos    <- array(0, dim=c(nvar-1, nvar-1))
      respadreshijos <-.Fortran("CalculaPadresHijos", as.integer(nvar),  
                          as.integer(etprevial), as.integer(etpreviau),
                          as.integer(PadresHijos))
                          
      return(matrix(unlist(respadreshijos[4]), ncol=nvar-1))                    
    }

Try the RMacoqui package in your browser

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

RMacoqui documentation built on May 2, 2019, 5:37 p.m.