sample size code snippets in r

find a zscore using sigma mean and sample size in r