# NOT RUN {
Fn <- function(x,dim){
out <- sum(exp(-x))
return(out)
}
out<-ranlip.LoadPartition("mypartition.txt")
if(out>0) {
print("Error loading hat function. ")
err<-switch(out,"Unknown","Fice cannot be opened",
"File is corrupted","Memory not allocated")
print(err)
} else {
r<-ranlip.RandomVec( Fn)
print(r)
}
ranlip.FreeMem();
# }
Run the code above in your browser using DataLab