search for: namesgets

I get the error undefined symbol: Rf_rownamesgets when I try to load my package, which include C++ code that calls that function. This is particularly strange since the code also calls Rf_classgets, and it loaded OK with just that. Can anyone tell me what's going on? For the record, I worked around this with the general purpose attribute...

...tion code */ /* get the vectors based on the column names to make sure the sequence isn't important */ /* crunch, crunch, crunch */ /* assign the results into the outgoing data.frame which will have the same dimensions as the incoming frame */ if( !isNull( nms ) ) { namesgets( m_out, nms ); } UNPROTECT( 3 ); return m_out; } Thanks, Jeff.

...rsion 1.25 --- ./src/include/Rinternals.h.alpha-patch Sun Sep 12 17:41:57 1999 +++ ./src/include/Rinternals.h Sun Sep 12 17:43:37 1999 @@ -361,7 +361,7 @@ SEXP matchArgs(SEXP, SEXP); SEXP matchPar(char*, SEXP*); SEXP mkChar(const char*); -SEXP mkString(const char*); +SEXP mkString(char*); SEXP namesgets(SEXP, SEXP); int ncols(SEXP); int nrows(SEXP); --- ./src/main/gram.y.alpha-patch Tue Aug 10 10:56:17 1999 +++ ./src/main/gram.y Sun Sep 12 17:38:27 1999 @@ -56,7 +56,10 @@ SEXP mkFloat(char *); SEXP mkInteger(char *); SEXP mkNA(void); -SEXP mkString(const char *); +/* problems with multipl...

...esultNames = allocVector(VECSXP, nResultListObjs)); nProtect++; //samples SET_VECTOR_ELT(result, 0, mu_out_r); SET_VECTOR_ELT(resultNames, 0, mkChar("mu")); SET_VECTOR_ELT(result, 1, alpha_out_r); SET_VECTOR_ELT(resultNames, 1, mkChar("alpha")); namesgets(result, resultNames); //unprotect UNPROTECT(nProtect); return(result); //return(R_NilValue); } }

Hi, all! My project today is to write a speedy colSums(), which is a function available in S-Plus to add the columns of a matrix. Here are 4 ways to do it, with the time it took (elapsed, best of 3 trials) in both R and S-Plus: m <- matrix(1, 400, 40000) x1 <- apply(m, 2, sum) ## R=16.55 S=52.39 x2 <- as.vector(rep(1,nrow(m)) %*% m) ## R= 2.39 S= 8.52 x3 <-