# NOT RUN {
dim<-3
left<-c(0,0,0)
right<-c(5,5,5)
ranlip.Init(dim, left, right);
num <- 10
numfine <- 4
MinLip <- 1
Fn <- function(x,dim){
out <- exp(-sum(x*x))
return(out)
}
ranlip.PrepareHatFunctionAuto(num, numfine, MinLip, Fn)
r<-ranlip.RandomVec( Fn)
print(r)
r<-ranlip.RandomVec( Fn)
print(r)
ranlip.FreeMem()
# }
Run the code above in your browser using DataLab