
How to write a function that calculates the sample standard deviation i.e. sqrt(sum((x  mean(x))^2) / (n  1))?,however Not allow to use builtin R function such as sum,meanmedian,sd,var or summary.
this function should have a single argument x.
Many thanks!
