Displaying 3 results from an estimated 3 matches for "tryerror".
Did you mean:
try&error
2003 Jul 04
0
degrees of freedom in nlme() (PR#2384)
...in 1:nseeds)
{
set.seed(i)
a <- 2
x <- rep(rnorm(3),rep(5,3))
id <- rep(c("a","b","c"),rep(5,3))
y <- a+x+rnorm(15)
data <- data.frame(y=y,id=id)
initx <- matrix(x[c(1,6,11)],dimnames=list(c("a","b","c"),"x"))
tryerror <- try(fit.nlme <-
nlme(y ~ a + x, fixed= a~1, random=x~1|id,
data=data, start=list(fixed=c(a=2),
random=list(id=initx)),method="ML"))
DF[i] <- ifelse(attr(tryerror,"class")[1]=="try-error",NA,fit.nlme$fixDF$X)
}
name...
2020 Mar 24
0
help with rchk warnings on Rf_eval(Rf_lang2(...))
...edd at rob:~/git/rcpp(master)$ ag Rf_lang2 inst/include/
inst/include/Rcpp/exceptions.h
360: Rcpp::Shield<SEXP> simpleErrorExpr(Rf_lang2(::Rf_install("simpleError"), txt));
365: Rcpp::Shield<SEXP> simpleErrorExpr( Rf_lang2(::Rf_install("simpleError"), tryError ));
388: Rcpp::Shield<SEXP> expr( Rf_lang2( stop_sym , condition ) ) ;
395: Rcpp::Shield<SEXP> expr( Rf_lang2( stop_sym , condition ) ) ;
inst/include/Rcpp/Reference.h
62: Shield<SEXP> call(Rf_lang2(newSym, str));
inst/include/Rcpp/api/meat/Rcpp_eval.h
99:...
2020 Mar 24
2
help with rchk warnings on Rf_eval(Rf_lang2(...))
> Shield<SEXP> res(Rcpp_fast_eval(Rf_lang2(asEnvironmentSym, x), R_GlobalEnv));
The call should be protected before evaluation though. So more like:
Shield<SEXP> call(Rf_lang2(asEnvironmentSym, x));
return Rcpp_fast_eval(call, R_GlobalEnv);
Best,
Lionel
On 3/23/20, Dirk Eddelbuettel <edd at debian.org> wrote:
>
>
> On 23 March 2020 at 17:07, Ben Bolker wrote:
>