# NOT RUN {
dim<-3
left<-c(0,0,0)
right<-c(5,5,5)
ranlip.Init(dim, left, right);
num <- 10
numfine <- 2
MinLip <- 1
Fn <- function(x,dim){
out <- exp(-sum(x*x))
return(out)
}
ranlip.PrepareHatFunctionAuto(num, numfine, MinLip, Fn);
# we don't want to create this file unnecessarily
# }
# NOT RUN {
out<-ranlip.SavePartition("mypartition.txt")
# }
# NOT RUN {
# }
# NOT RUN {
if(out>0) {print("File cannot be opened.")}
# }
# NOT RUN {
ranlip.FreeMem()
# }
Run the code above in your browser using DataLab