R/ctsub1.R

In bootstrap: Functions for the Book "An Introduction to the Bootstrap"

"ctsub"<-
  function(x, y, z)
{
  junk <- .Fortran("f_ctsub",
		   length(x),
		   as.double(x),
		   as.double(y),
		   as.double(z),
		   ans=double(length(x)),
                   PACKAGE = "bootstrap")
  return(junk$ans)
}