x <- rnorm(500)
dim(x) <- c(250,2)
ev <- evaluator.2(x)
##The Spatial Median
trust(ev,parinit=c(median(x[1,]),median(x[2,])),u=c(0,0),rinit=0.5,rmax=2e5)
##Quantile for vector (0.2,0.3)
trust(ev,parinit=c(median(x[1,]),median(x[2,])),u=c(0.2,0.3),rinit=0.5,rmax=2e5)Run the code above in your browser using DataLab