Consider a vector x, containing integers from 1 to 10.x<-1:10Write an R code which computes the standardard deviation of these 10 numbers using two different algorithms. You are not allowed to use the sd or var function in R.The first algorithm must use a for loop. The second algorithm is not allowed to use a loop. Instead, it should use the basic vector/matrix operations directly. The second algorithm may be as short as one line. Work on an R script (or document, or betik), save as an R file (name something like: nameLastnameHW1.R) and upload.