# atypical: Detection for local influence In CensSpatial: Censored Spatial Models

## Description

This function obtain the atypical points detected for the function localinfmeas

## Usage

 `1` ```atypical(w) ```

## Arguments

 `w` An object of the class localinfmes (see the function localinfmeas)

## Value

 `RP` Atypical points detected for the response variable perturbation scheme `SP` Atypical points detected for the scale matrix perturbation scheme `EP` Atypical points detected for the explanatory variable perturbation scheme

## Author(s)

Alejandro Ordonez <<[email protected]>>, Victor H. Lachos <<[email protected]>> and Christian E. Galarza <<[email protected]>>

Maintainer: Alejandro Ordonez <<[email protected]>>

## References

Cook, R. D. (1986). Assessment of local influence. Journal of the Royal Statistical Society, Series B,, 48, 133-169.

Zhu, H., Lee, S., Wei, B. & Zhou, J. (2001). Case-deletion measures for models with incomplete data. Biometrika, 88, 727-737.

`localinfmeas`
 ``` 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45``` ```## Not run: 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) coords1=coords[1:n,] cov.ini=c(0.2,0.1) type="exponential" xtot=as.matrix(rep(1,(n+n1))) xobs=xtot[1:n,] beta=5 ###simulated data obj=rspacens(cov.pars=c(3,.3,0),beta=beta,x=xtot,coords=coords,cens=0.25,n=(n+n1), n1=n1,cov.model=type,cens.type="left") data2=obj\$datare cc=obj\$cc y=obj\$datare[,3] ##### generating atypical observations### y[91]=y[91]+4 y[126]=y[126]+4 y[162]=y[162]+4 coords=obj\$datare[,1:2] ###initial values### cov.ini=c(0.2,0.1) est=SAEMSCL(cc,y,cens.type="left",trend="cte",coords=coords, M=15,perc=0.25,MaxIter=10,pc=0.2,cov.model=type, fix.nugget=T,nugget=0,inits.sigmae=cov.ini[1], inits.phi=cov.ini[2],search=T,lower=0.00001,upper=50) w=localinfmeas(est,fix.nugget=T,c=3) ## object of class localinfmeas atypical(w) ## End(Not run) ```