Searched refs:VM4vec (Results 1 – 2 of 2) sorted by relevance
906 VM4vec <- .Call('VM4', as.numeric(Xc), as.numeric(Xc2), m11, m21, functionVar909 b <- rep(VM4vec[1], nT)913 b[iter] <- b[iter] - VM4vec[3]918 b[iter] <- b[iter] - VM4vec[2]
1754 SEXP VM4vec = PROTECT(allocVector(REALSXP, 3)); in VM4() local1755 double *rVM4vec = REAL(VM4vec); in VM4()1993 return VM4vec; in VM4()