R/Timc.R

In pvrank: Rank Correlations

Timc<- function(n,mu2n,mu4n,icoef){
			Lam<-vector(mode = "numeric", length = 2); Lam<-as.double(Lam)
			Eval<-vector(mode = "numeric", length = 1); Eval<-as.double(Eval)
			n<-as.double(n)
			icoef<-as.integer(icoef)
			halton2<-c(0.00883389,0.36106611,0.50883389,0.69439944,0.25883389,0.13884389,0.75883389, 0.47217722, 0.13383389,0.80551055,0.63383389,0.249955,0.38383389,0.58328833, 0.88383389,0.91662166,
        0.07133389,0.06476981,0.57133389,0.39810314,0.32133389,0.73143648,0.82133389,0.17588092,
		0.19633389,0.50921426,0.69633389,0.84254759,0.44633389,0.28699203,0.94633389,0.62032537,
		0.04008389,0.9536587,0.54008389,0.10180685,0.29008389,0.43514018,0.79008389,0.76847352,
		0.16508389,0.21291796,0.66508389,0.54625129,0.41508389,0.87958463,0.91508389,0.32402907,
		0.10258389,0.6573624,0.60258389,0.99069574,0.35258389,0.00715664,0.85258389,0.34048998,
		0.22758389,0.67382331,0.72758389,0.11826775)
		zran<-matrix(as.double(halton2),30,2,byrow=TRUE)
		y <-.Fortran("CRS", Lam, as.double(mu2n), as.double(mu4n), Eval, n, zran, icoef, PACKAGE = "pvrank")
			return(y)}