CensSpatial

CRAN incoming feasibility

Maintainer: ‘Alejandro Ordonez <ordonezjosealejandro@gmail.com>’

No Authors@R field in DESCRIPTION.
Please add one, modifying
  Authors@R: c(person(given = "Alejandro",
                      family = "Ordonez",
                      role = c("aut", "cre"),
                      email = "ordonezjosealejandro@gmail.com"),
               person(given = c("Christian", "E."),
                      family = "Galarza",
                      role = "aut"),
               person(given = c("Victor", "H."),
                      family = "Lachos",
                      role = "aut"))
as necessary.

CRAN incoming feasibility

Maintainer: ‘Alejandro Ordonez <ordonezjosealejandro@gmail.com>’

No Authors@R field in DESCRIPTION.
Please add one, modifying
  Authors@R: c(person(given = "Alejandro",
                      family = "Ordonez",
                      role = c("aut", "cre"),
                      email = "ordonezjosealejandro@gmail.com"),
               person(given = c("Christian", "E."),
                      family = "Galarza",
                      role = "aut"),
               person(given = c("Victor", "H."),
                      family = "Lachos",
                      role = "aut"))
as necessary.

dependencies in R code

Namespace in Imports field not imported from: ‘Rcpp’
  All declared Imports should be used.

examples

Running examples in ‘CensSpatial-Ex.R’ failed
The error most likely occurred in:

> ### Name: algnaive12
> ### Title: Naive 1 and Naive 2 method for spatial prediction.
> ### Aliases: algnaive12
> ### Keywords: Spatial Censored SAEM
> 
> ### ** Examples
> 
> ###simulated coordinates
> n<-200 ### sample size for estimation.
> n1=100 ### number of observation used in the prediction.
> 
> ###simulated coordinates
> r1=sample(seq(1,30,length=400),n+n1)
> r2=sample(seq(1,30,length=400),n+n1)
> coords=cbind(r1,r2)### total coordinates (used in estimation and prediction).
> 
> coords1=coords[1:n,]####coordinates used for estimation.
> 
> type="matern"### covariance structure.
> 
> xtot<-cbind(1,runif((n+n1)),runif((n+n1),2,3))## X matrix for estimation and prediction.
> xobs=xtot[1:n,]## X matrix for estimation.
> 
> ###simulated data
> obj=rspacens(cov.pars=c(3,.3,0),beta=c(5,3,1),x=xtot,coords=coords,kappa=1.2,
+ cens=0.25,n=(n+n1),n1=n1,cov.model=type,cens.type="left")
> 
> data2=obj$datare
> data2[,4:5]=xobs[,-1]
> 
> cc=obj$cc
> y=obj$datare[,3]
> cutoff=rep(obj$cutoff,length(y[cc==1]))
> 
> 
> aux2=algnaive12(data=data2,cc=obj$cc,covar=TRUE,covar.col=4:5,
+ copred=obj$coords1,thetaini=c(.1,.2),y.col=3,coords.col=1:2,
+ fix.nugget=TRUE,nugget=0,kappa=1.2,cutoff=cutoff,trend=~V4+V5,
+ cov.model=type)
OMP: Warning #96: Cannot form a team with 24 threads, using 2 instead.
OMP: Hint Consider unsetting KMP_DEVICE_THREAD_LIMIT (KMP_ALL_THREADS), KMP_TEAMS_THREAD_LIMIT, and OMP_THREAD_LIMIT (if any are set).

dependencies in R code

Namespace in Imports field not imported from: ‘Rcpp’
  All declared Imports should be used.

examples

Running examples in ‘CensSpatial-Ex.R’ failed
The error most likely occurred in:

> ### Name: algnaive12
> ### Title: Naive 1 and Naive 2 method for spatial prediction.
> ### Aliases: algnaive12
> ### Keywords: Spatial Censored SAEM
> 
> ### ** Examples
> 
> ###simulated coordinates
> n<-200 ### sample size for estimation.
> n1=100 ### number of observation used in the prediction.
> 
> ###simulated coordinates
> r1=sample(seq(1,30,length=400),n+n1)
> r2=sample(seq(1,30,length=400),n+n1)
> coords=cbind(r1,r2)### total coordinates (used in estimation and prediction).
> 
> coords1=coords[1:n,]####coordinates used for estimation.
> 
> type="matern"### covariance structure.
> 
> xtot<-cbind(1,runif((n+n1)),runif((n+n1),2,3))## X matrix for estimation and prediction.
> xobs=xtot[1:n,]## X matrix for estimation.
> 
> ###simulated data
> obj=rspacens(cov.pars=c(3,.3,0),beta=c(5,3,1),x=xtot,coords=coords,kappa=1.2,
+ cens=0.25,n=(n+n1),n1=n1,cov.model=type,cens.type="left")
> 
> data2=obj$datare
> data2[,4:5]=xobs[,-1]
> 
> cc=obj$cc
> y=obj$datare[,3]
> cutoff=rep(obj$cutoff,length(y[cc==1]))
> 
> 
> aux2=algnaive12(data=data2,cc=obj$cc,covar=TRUE,covar.col=4:5,
+ copred=obj$coords1,thetaini=c(.1,.2),y.col=3,coords.col=1:2,
+ fix.nugget=TRUE,nugget=0,kappa=1.2,cutoff=cutoff,trend=~V4+V5,
+ cov.model=type)

*

*

*

*

*

*

*

*

*

*