R, (削除) 51 (削除ここまで) (削除) 45 (削除ここまで) 38 bytes

Thanks to Giuseppe and J.Doe!

function(x)scale(x)*(1-1/sum(x|1))^-.5

Try it online!

R, (削除) 51 (削除ここまで) (削除) 45 (削除ここまで) (削除) 38 (削除ここまで) 37 bytes

Thanks to Giuseppe and J.Doe!

function(x)scale(x)/(1-1/sum(x|1))^.5

Try it online!

R, (削除) 51 (削除ここまで) 45 bytes

-6 bytes thanks to Giuseppe!

(s=(x=scan())-mean(x))/(sum(s^2)/sum(x|1))^.5

Try it online!

R, (削除) 51 (削除ここまで) (削除) 45 (削除ここまで) 38 bytes

Thanks to Giuseppe and J.Doe!

function(x)scale(x)*(1-1/sum(x|1))^-.5

Try it online!

R, 51 bytes

x=scan();m=mean(x);(x-m)/(sum((x-m)^2)/sum(x|1))^.5

Try it online!

R, (削除) 51 (削除ここまで) 45 bytes

-6 bytes thanks to Giuseppe!

(s=(x=scan())-mean(x))/(sum(s^2)/sum(x|1))^.5

Try it online!