Running examples in 'WLreg-Ex.R' failed
The error most likely occurred in:

> ### Name: wrlogistic
> ### Title: Logistic regression for win ratio
> ### Aliases: wrlogistic
> ### Keywords: weighted win ratio pairwise comparison logistic regression
> ###   conditional logistic regression
> 
> ### ** Examples
> 
> ###Generate data
> n<-300
> rho<-0.5
> b2<-c(1.0,-1.0)
> b1<-c(0.5,-0.9)
> bc<-c(1.0,0.5)
> lambda10<-0.1;lambda20<-0.08;lambdac0<-0.09
> lam1<-rep(0,n);lam2<-rep(0,n);lamc<-rep(0,n)
> z1<-rep(0,n)
> z1[1:(n/2)]<-1
> z2<-rnorm(n)
> z<-cbind(z1,z2)
> 
> lam1<-lam2<-lamc<-rep(0,n)
> for (i in 1:n){
+     lam1[i]<-lambda10*exp(-sum(z[i,]*b1))
+     lam2[i]<-lambda20*exp(-sum(z[i,]*b2))
+     lamc[i]<-lambdac0*exp(-sum(z[i,]*bc))
+ }
> tem<-matrix(0,ncol=3,nrow=n)
> 
> y2y<-matrix(0,nrow=n,ncol=3)
> y2y[,1]<-rnorm(n);y2y[,3]<-rnorm(n)
> y2y[,2]<-rho*y2y[,1]+sqrt(1-rho^2)*y2y[,3]
> tem[,1]<--log(1-pnorm(y2y[,1]))/lam1
> tem[,2]<--log(1-pnorm(y2y[,2]))/lam2
> tem[,3]<--log(1-runif(n))/lamc
> 
> y1<-apply(tem,1,min)
> y2<-apply(tem[,2:3],1,min)
> d1<-as.numeric(tem[,1]<=y1)
> d2<-as.numeric(tem[,2]<=y2)
> 
> y<-cbind(y1,y2,d1,d2)
> z<-as.matrix(z)
> ###################
> 
> #####Define the comparison function
> comp<-function(y,x){
+   y1i<-y[1];y2i<-y[2];d1i<-y[3];d2i<-y[4]
+   y1j<-x[1];y2j<-x[2];d1j<-x[3];d2j<-x[4] 
+   w2<-0;w1<-0;l2<-0;l1<-0
+   
+   if (d2j==1 & y2i>=y2j) w2<-1
+   else if (d2i==1 & y2j>=y2i) l2<-1
+   
+   if (w2==0 & l2==0 & d1j==1 & y1i>=y1j) w1<-1
+   else if (w2==0 & l2==0 & d1i==1 & y1j>=y1i) l1<-1
+   
+   comp<-0
+   if (w2==1) comp<-1 
+   else if (l2==1) comp<-(-1)
+   else if (w1==1) comp<-2
+   else if (l1==1) comp<-(-2)
+   
+   comp
+ }
> bin<-rep(0,n*(n-1)/2)
> for (i in 2:n)for (j in 1:(i-1))bin[(i-1)*(i-2)/2+j]<-comp(y[i,],y[j,])
> ###Use the win loss indicator matrix to calculate the general win loss statistics
> bb2<-wrlogistic(bin,z,b0=rep(0,ncol(z)),tol=1.0e-04,maxiter=20)
> bb2
$b
[1]  0.7383113 -0.7171949

$Ubeta
[1]  4.793984e-10 -1.767665e-09

$VU
            [,1]        [,2]
[1,] 0.033480864 0.007963934
[2,] 0.007963934 0.097729306

$Vbeta
          [,1]      [,2]
[1,]  9.549391 -0.447771
[2,] -0.447771  3.359312

$Wald
[1]  4.138208 -6.777548

$pvalue
[1] 3.500288e-05 1.222311e-11

$Imatrix
          [,1]      [,2]
[1,] 2671.6268  495.3371
[2,]  495.3371 7696.1169

$Wtotal
[1]  9605.000 -8577.489

$Ltotal
[1] 4733.000 7403.768

$err
[1] 1.098654e-08

$iter
[1] 5

> 
> 
> ####Calculate the win, loss, tie result using Fortran loops to speed up the process
> ####Using the "inline" package to convert the code into Fortran
> 
> #install.packages("inline") #Install the package "inline''
> library("inline") ###Load the package "inline"
> 
> ########################################################
> # The use of ``inline'' needs ``rtools'' and ``gcc''
> # in the PATH environment of R.
> # The following code will put these two into
> # the PATH for the current R session ONLY.
> ########################################################
> 
> #rtools <- "C:\Rtools\bin"
> #gcc <- "C:\Rtools\gcc-4.6.3\bin"
> #path <- strsplit(Sys.getenv("PATH"), ";")[[1]]
> #new_path <- c(rtools, gcc, path)
> #new_path <- new_path[!duplicated(tolower(new_path))]
> #Sys.setenv(PATH = paste(new_path, collapse = ";"))
> 
> codex4 <- "
+ integer::i,j,indexij,d1i,d2i,d1j,d2j,w2,w1,l2,l1
+ double precision::y1i,y2i,y1j,y2j
+ do i=2,n,1
+    y1i=y(i,1);y2i=y(i,2);d1i=dnint(y(i,3));d2i=dnint(y(i,4))
+    do j=1,(i-1),1
+       y1j=y(j,1);y2j=y(j,2);d1j=dnint(y(j,3));d2j=dnint(y(j,4)) 
+       indexij=(i-1)*(i-2)/2+j
+       w2=0;w1=0;l2=0;l1=0
+       if (d2j==1 .and. y2i>=y2j) then
+          w2=1
+       else if (d2i==1 .and. y2j>=y2i) then
+          l2=1
+       else if (d1j==1 .and. y1i>=y1j) then
+          w1=1
+       else if (d1i==1 .and. y1j>=y1i) then
+          l1=1
+       end if
+       aindex(indexij)=0
+       if (w2==1) then 
+          aindex(indexij)=1
+       else if (l2==1) then
+          aindex(indexij)=-1
+       else if (w2==0 .and. l2==0 .and. w1==1) then
+          aindex(indexij)=2
+       else if (w2==0 .and. l2==0 .and. l1==1) then
+          aindex(indexij)=-2
+       end if
+    end do
+ end do
+ "
> ###Convert the above code into Fortran
> cubefnx4<-cfunction(sig = signature(n="integer", p="integer", y="numeric", aindex="integer"), 
+             implicit = "none",dim = c("", "", "(n,p)", "(n*(n-1)/2)"), codex4, language="F95")

ERROR(s) during compilation: source code errors or compiler configuration errors!
make cmd is
  make -f "C:/msys64/home/tomas/ucrt3/svn/ucrt3/R_PACK~1/rinst/etc/x64/Makeconf" -f "C:/msys64/home/tomas/ucrt3/svn/ucrt3/R_PACK~1/rinst/share/make/winshlib.mk" SHLIB="file24fac2def887.dll" SHLIB_LIBADD='$(FLIBS) $(FCLIBS_XTRA)' WIN=64 TCLBIN= OBJECTS="file24fac2def887.o"

make would use
Warning message:
In system(paste(cmd, "-n")) : 'make' not found

Program source:
  1: 
  2:  SUBROUTINE file24fac2def887 ( n, p, y, aindex )
  3: IMPLICIT none
  4: INTEGER n
  5: INTEGER p
  6: DOUBLE PRECISION y(n,p)
  7: INTEGER aindex(n*(n-1)/2)
  8: 
  9: integer::i,j,indexij,d1i,d2i,d1j,d2j,w2,w1,l2,l1
 10: double precision::y1i,y2i,y1j,y2j
 11: do i=2,n,1
 12:    y1i=y(i,1);y2i=y(i,2);d1i=dnint(y(i,3));d2i=dnint(y(i,4))
 13:    do j=1,(i-1),1
 14:       y1j=y(j,1);y2j=y(j,2);d1j=dnint(y(j,3));d2j=dnint(y(j,4)) 
 15:       indexij=(i-1)*(i-2)/2+j
 16:       w2=0;w1=0;l2=0;l1=0
 17:       if (d2j==1 .and. y2i>=y2j) then
 18:          w2=1
 19:       else if (d2i==1 .and. y2j>=y2i) then
 20:          l2=1
 21:       else if (d1j==1 .and. y1i>=y1j) then
 22:          w1=1
 23:       else if (d1i==1 .and. y1j>=y1i) then
 24:          l1=1
 25:       end if
 26:       aindex(indexij)=0
 27:       if (w2==1) then 
 28:          aindex(indexij)=1
 29:       else if (l2==1) then
 30:          aindex(indexij)=-1
 31:       else if (w2==0 .and. l2==0 .and. w1==1) then
 32:          aindex(indexij)=2
 33:       else if (w2==0 .and. l2==0 .and. l1==1) then
 34:          aindex(indexij)=-2
 35:       end if
 36:    end do
 37: end do
 38: 
 39: RETURN
 40: END
 41: 

Compilation ERROR, function(s)/method(s) not created!
Error in compileCode(f, code, language, verbose) : 
  Warning message:In system(cmd) : 'make' not found
Calls: cfunction -> compileCode
Execution halted