compile.cmd <- 'cmd /c "Rcmd INSTALL --build LogReg " '
system(compile.cmd, intern = TRUE) 

#Fails - need to update manual pages

system(compile.cmd, intern = TRUE) #Works !

#Check build
check.cmd <- 'cmd /c "Rcmd check LogReg " '
system(check.cmd, intern = TRUE) 


#Now clean up
rm(list=ls())

#Now install from .zip

library(LogReg)

#Test
data(test.data)

plot.lrsurf(test.data$Y, test.data$X1)
plot.lrsurf(test.data$Y, test.data$X1, ncl=50)

new.data<-gbd(n=500,p=1,betas=c(-2,1))
plot.lrsurf(new.data$Y, new.data$X, ncl=50)
plot.lrsurf(new.data$Y, new.data$X, ncl=50,b0=seq(-2.5,-1,by=0.025),b1=seq(0,1.5,by=0.025))

fit.val<-est.bes(new.data$Y, new.data$X)
abline(v=fit.val$ests[1],h=fit.val$ests[2])