読者です 読者をやめる 読者になる 読者になる

INFINITY -数学とかプログラミングとか-

統計とプログラムを使って役に立たせたい

TeX用コマンド入力を支援するための辞書をご利用ください。
sanctuary's blogは,適当なことが書いてあります。

結合密度関数

x=seq(-15,15,length=50)
y=seq(-15,15,length=50)
pdf=function(x,y){
	return((1/(2*pi*70))*exp(-(1/2)*(((x-(-1))^2)/49))*exp((-1/2)*(((y-3)^2)/10)))
}

z=matrix(0,50,50)
#z
for(i in 1:50){
	for(j in 1:50){
		z[i,j]=pdf(x[i],y[j])
	}
}
persp(x,y,z,theta = 50, phi = 30, expand = 0.5, col = "lightblue",zlim=c(0,0.002))