R/REXP_joint.R

Defines functions REXP_joint

REXP_joint <- function(  data, marker, trait, env, model, RET_a, RET_b, RET_numInf ) {
  rexport_result <- .C( 'eREXP_joint',  as.double(data), as.integer(dim(data)), as.double(marker), as.integer(length(marker)), as.double(trait), as.double(env), as.double(model), as.double(RET_a), as.integer(length(RET_a)), as.double(RET_b), as.integer(dim(RET_b)), as.double(RET_numInf), as.integer(length(RET_numInf)), dup=FALSE, NAOK=TRUE )
  list(   a = rexport_result[[8]] ,   b = rexport_result[[10]] ,  numInf = rexport_result[[12]]  )
}

Try the fbati package in your browser

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

fbati documentation built on April 23, 2018, 5:05 p.m.