Rで計算 n次元球

関連記事
ガンマ関数　
gamma(a)
表面積

ndgsphereS<-function(df=df,r=r) 2*pi^(df/2)*r^(df-1)/gamma(df/2)
ndgsphereV<-function(df=df,r=r)r/df*ndgsphereS(df,r)

ndgsphereV(df=3,r=1)
[1] 4.18879