* using log directory 'd:/Rcompile/CRANpkg/local/2.6/ljr.Rcheck' * using R version 2.6.2 (2008-02-08) * checking for file 'ljr/DESCRIPTION' ... OK * this is package 'ljr' version '1.1-0' * checking package dependencies ... OK * checking if this is a source package ... OK * checking whether package 'ljr' can be installed ... OK * checking package directory ... OK * checking for portable file names ... OK * checking DESCRIPTION meta-information ... OK * checking top-level files ... OK * checking index information ... OK * checking package subdirectories ... OK * checking R files for non-ASCII characters ... OK * checking R files for syntax errors ... OK * checking whether the package can be loaded ... OK * checking whether the package can be loaded with stated dependencies ... OK * checking for unstated dependencies in R code ... OK * checking S3 generic/method consistency ... OK * checking replacement functions ... OK * checking foreign function calls ... OK * checking R code for possible problems ... OK * checking Rd files ... OK * checking Rd cross-references ... OK * checking for missing documentation entries ... OK * checking for code/documentation mismatches ... OK * checking Rd \usage sections ... OK * checking line endings in C/C++/Fortran sources/headers ... OK * checking line endings in Makefiles ... OK * checking for portable compilation flags in Makevars ... OK * checking for portable use of $BLAS_LIBS ... OK * creating ljr-Ex.R ... OK * checking examples ... ERROR Running examples in 'ljr-Ex.R' failed. The error most likely occurred in: > ### * ljrb > > flush(stderr()); flush(stdout()) > > ### Name: ljrb > ### Title: Perform backward joinpoint selection algorithm with upper bound > ### K. > ### Aliases: ljrb > ### Keywords: nonlinear > > ### ** Examples > > N=20 > m=2 > k=0 > beta=c(0.1,0.1,-0.05) > gamma=c(0.1,-0.05,0.05) > ofst=runif(N,-2.5,-1.5) > x1=round(runif(N,-0.5,9.5)) > x2=round(runif(N,-0.5,9.5)) > X=cbind(x1,x2) > n=rep(10000,N) > tm=c(1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,10,10) > eta=ofst+beta[1]+gamma[1]*tm > if (m>0) + for (i in 1:m) + eta=eta+beta[i+1]*X[,i] > if (k>0) + for (i in 1:k) + eta=eta+gamma[i+1]*pmax(tm-tau[i],0) > y=rbinom(N,size=n,prob=exp(eta)/(1+exp(eta))) >