## Not run:
# set.seed(644925)
# n <- 500
# X <- runif(n,-2,2)
# Y <- X^2+rnorm(n)
# x <- seq(min(X),max(X),length=100)
# res <- QuantifQuantile.d(X,Y,x,testN=seq(15,35,by=5))
# ## End(Not run)
## Not run:
# set.seed(272422)
# n <- 1000
# X <- matrix(runif(n*2,-2,2),ncol=n)
# Y <- apply(X^2,2,sum)+rnorm(n)
# x1 <- seq(min(X[1,]),max(X[1,]),length=20)
# x2 <- seq(min(X[2,]),max(X[2,]),length=20)
# x <- matrix(c(rep(x1,20),sort(rep(x2,20))),nrow=nrow(X),byrow=TRUE)
# res <- QuantifQuantile.d(X,Y,x,testN=seq(90,140,by=10),B=20,tildeB=15)
# ## End(Not run)
Run the code above in your browser using DataLab