One and Two Samples Using Only an R Function