R/lpme_HelperFxns.R

In lpmec: Measurement Error Analysis and Correction Under Identification Restrictions

Defines functions f2a f2i f2n

f2n <- function(x){as.numeric( as.character( x ) ) }
f2i <- function(f_){lpmec_env$jnp$array(f_,lpmec_env$jnp$int32)}
f2a <- function(x){lpmec_env$jnp$array(x,lpmec_env$jnp$float32)}
ai <- as.integer
lpmec_env <- new.env( parent = emptyenv() )

Try the lpmec package in your browser