Displaying 2 results from an estimated 2 matches for "covxy".
2005 Oct 05
1
(no subject)
...(c(0,0),2,1)
v=matrix(c(1,0,0,1),2,2)
Y=function(X1,X2,mu=m,V=v)
{
X=matrix(c(X1,X2),2,1)
a=(1/((2*pi)*sqrt(det(V))))*exp((-0.5)*(t(X-mu)%*%solve(V)%*%(X-mu)))
a[1]
}
x1=seq(-1,1)
x2=x1
Z=outer(x1,x2,FUN="Y",mu=m,V=v)
persp(x1,x2,Z)
my code:
BINORMAL<-function(varx=1,vary=1,covxy=0,meanx=0,meany=0)
{
#the following function plots the density of a bi variate normal distribution
covXY<-matrix(c(varx,covxy,covxy,vary),2,2)
A<-solve(covXY)
#up<-max(meanx+4*varx^.5,meanx-4*varx^.5,meany+4*vary^.5,meany-4*vary^.5)
#x <- seq(-up,up,length=50)
#y <- x
x <...
2004 Oct 28
2
array problem and for looping
An embedded and charset-unspecified text was scrubbed...
Name: not available
Url: https://stat.ethz.ch/pipermail/r-help/attachments/20041028/dbf887a9/attachment.pl
-------------- next part --------------
An embedded and charset-unspecified text was scrubbed...
Name: random1.txt
Url: https://stat.ethz.ch/pipermail/r-help/attachments/20041028/dbf887a9/random1.txt