Update estimateTheta.R

Do I correctly understand the use of quadpoints in this function?