Is this how R samples from Cauchy?