R/dsSx.R

Defines functions dsSx

Documented in dsSx

dsSx <- function(X,Xetoile,m=2,s=0) {
  n <- nrow(X)
  d <- ncol(X)
  n <- nrow(X)
  netoile <- nrow(Xetoile)
  d <- ncol(X)
  if (ncol(Xetoile)!=d) stop("the number of variables do not match")
  Sgu <-  DuchonS(Xetoile,m)
  Kgu <- DuchonQ(Xetoile,X,m,s,symmetric=FALSE)
  return(list(Sgu=Sgu,Qgu=Kgu))
}

Try the ibr package in your browser

Any scripts or data that you put into this service are public.

ibr documentation built on Sept. 13, 2023, 5:08 p.m.