R/convert.R

Defines functions convert enpower

enpower <- function(n, i) { 
          dn = length(n) ; out = 1 ; 
          if (i > 1) for (i in seq(1, i-1)) 
          out=out*n[i] ; out
          }

convert <-
function(X, n) 
  { nc = ncol(X)
    if (nrow(X) > 1)
     return (rowSums(sapply(seq(nc), function(i) enpower(n, i) * (X[[i]]-1) )) +1 )
    else
     return (sum(sapply(seq(nc), function(i) enpower(n, i) * (X[[i]]-1) )) +1 )
  }
mcrucifix/gp documentation built on July 29, 2023, 8:58 p.m.