MCMCmetrop1R function

Metropolis Sampling from User-Written R function