array( .C("Moments_M3", X=as.double(X), Y=as.double(Y), pn=as.integer(n),
pd=as.integer(d), M3=as.double(M3), PACKAGE="morpheus")$M3, dim=c(d,d,d) )
}
array( .C("Moments_M3", X=as.double(X), Y=as.double(Y), pn=as.integer(n),
pd=as.integer(d), M3=as.double(M3), PACKAGE="morpheus")$M3, dim=c(d,d,d) )
}