R/cor.f.R

Defines functions cor.f

cor.f <-
function(x,y)
{
	n<-length(x)
	corr<-0
	if (n!=length(y))
		print("Length Error")
	else
		corr<-.Fortran("rs_cor",corr=as.double(0),
		               as.double(x),as.double(y),as.integer(n),PACKAGE="stima")$corr
	return(corr)
}

Try the stima package in your browser

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

stima documentation built on May 29, 2024, 2:32 a.m.