Running 'CER-funCER-Rcode-constr.R'
  Running 'CER-funCER-Rcode-constrjoint.R'
  Running 'CER-funCER-Rcode-joint.R'
  Running 'GNEceq-examples.R'
  Running 'GNEnseq-examples.R'
  Running 'NIR-func-Rcode.R'
  Running 'NIRandVIPexample.R'
  Running 'SSR-Rcode-funSSRcheck-constrjoint.R'
  Running 'SSR-funSSR-Rcode-constr.R'
  Running 'SSR-funSSR-funSSRcheck-constr.R'
  Running 'SSR-funSSR-funSSRcheck-constrjoint.R'
  Running 'SSR-testarg.R'
  Running 'complfunc-3Dplot.R'
  Running 'complfunc-funcFB.R'
  Running 'complfunc-limitgraph.R'
  Running 'sensi-analysis-duopoly.R'
  Running 'sensi-analysis-genduopoly.R'
Running the tests in 'tests/sensi-analysis-genduopoly.R' failed.
Complete output:
  > if(!require("GNE"))stop("this test requires package GNE.")
  Loading required package: GNE
  Loading required package: alabama
  Loading required package: numDeriv
  Loading required package: nleqslv
  Loading required package: BB
  Loading required package: SQUAREM
  > 
  > #-------------------------------------------------------------------------------
  > # (2) generalized Duopoly game of Krawczyk and Stanislav Uryasev (2000)
  > #-------------------------------------------------------------------------------
  > 
  > obj <- function(x, i, d, lam, rho)
  + 	(d - lam - rho*sum(x))*x[i]
  > 	
  > NIF <- function(x, y, par)	
  + 	obj(x, 1, par["d1"], par["lam1"], par["rho1"]) - obj(c(y[1], x[2]), 1, par["d1"], par["lam1"], par["rho1"]) + obj(x, 2, par["d2"], par["lam2"], par["rho2"]) - obj(c(x[1], y[2]), 2, par["d2"], par["lam2"], par["rho2"])
  > 	
  > grobj <- function(x, i, j, d, lam, rho)
  + {
  + 	if(i == j)
  + 		d - lam - rho*sum(x) - rho*x[i]
  + 	else
  + 		-rho*x[j]
  + }	
  > 
  > #
  > getNE <- function(param)
  + {
  + 	x1star <- 2*(param["d1"] - param["lam1"])/3/param["rho1"] - (param["d2"] - param["lam2"])/3/param["rho2"]
  + 	x2star <- 2*(param["d2"] - param["lam2"])/3/param["rho2"] - (param["d1"] - param["lam1"])/3/param["rho1"]
  + 	c(x1star, x2star)
  + }
  > 
  > 
  > 
  > getNE(c(d1=20, d2=20, lam1=4, lam2=4, rho1=1, rho2=1)) #(16/3, 16/3)
        d1       d2 
  5.333333 5.333333 
  > 
  > getNE(c(d1=20, d2=22, lam1=4, lam2=5, rho1=1, rho2=1.5))
        d1       d2 
  6.888889 2.222222 
  > 
  > 
  > genpar <- function()
  + {
  + 	d <- runif(2, 15, 25)
  + 	names(d) <- paste("d", 1:2, sep="")
  + 	lam <- runif(2, 3, 5)
  + 	names(lam) <- paste("lam", 1:2, sep="")
  + 	rho <- runif(2, 1, 3)
  + 	names(rho) <- paste("rho", 1:2, sep="")
  + 	c(d, lam, rho)
  + }
  > 
  > #--------------------------------
  > #one-player sensi analysis
  > 
  > getsensiobj <- function(param, player=1)
  + {
  + 	sapply(1:NROW(param), function(i)
  + 		{
  + 			par <- param[i, ]
  + 			#print(par)
  + 			xstar <- getNE(par)
  + 			as.numeric( obj(xstar, player, par[paste("d", player, sep="")],
  + 				par[paste("lam", player, sep="")],
  + 				par[paste("rho", player, sep="")]) )
  + 		}
  + 	)
  + 	
  + }
  > 
  > library(sensitivity)
  Error in library(sensitivity) : there is no package called 'sensitivity'
  Execution halted