x_rnorm(50,3,1)
x

hist(x)
summary(x)

qnorm(0.25,3,1)


x<qnorm(0.25,3,1)

y_sum(x<qnorm(0.25,3,1))
y

binom.test(y,50,p=0.25)


sign.test_function(x,p,x0){
    y_sum(x<x0)
    n_length(x)
    return(binom.test(y,n,p))}

sign.test(x,0.25,2.325)

x_c(1,10.3,16.7,38.4,2.4,2.6,8.9,36.3,27.1,3.8,1.9,0.9,.4,9.2,3)
sign.test(x,0.5,4.8)


qexp(0.5,1/2)
qexp(0.5,1/3)