# NOT RUN {
set.seed(113)
X <- rnorm(10, 100, 15)
# Square root of the unbiased estimate of the variance (not unbiased)
var(X)^.5
# One way to implement the function.
s.u(s=var(X)^.5, N=length(X))
# Another way to implement the function.
s.u(X=X)
# }
Run the code above in your browser using DataCamp Workspace