Return function position when building the z-test using rstudio

Question

hey guys i have made below function as

`z.test1<-function(H0,ssd,smean,n,alpha){
        smean<-mean(x)
        ssd<-var(x)
        n<-length(x)