report_sd <- function(Vars,Pars,In,histCol="#00AFBB",joinTable=TRUE,nrow_plot=2){
  
  ni = ncol(In)
  np = ncol(Pars)
  
  
  Pars = as.data.frame(Pars)
  names(Pars) = paste(rep("R0"),1:np,sep="")

  In = as.data.frame(In)
  names(In) = paste("Init0",1:ni,sep = "")
  
  SD = sqrt(Vars)
  par(mfrow = c(1, ni+np))
  b=apply(cbind(Pars,In),2,var)
  empirical_sd = sqrt(b)
  SD = as.data.frame(SD)
  names(SD) = paste("SD0",1:(ni+np),sep = "")
  Histo = list()
  Table.sd = NULL
  for (col in 1:(ni+np)) {
     Histo[[col]] = ggdensity(SD, x = names(SD)[col],
  # add = "median", 
     rug = TRUE)+geom_histogram(aes(y=..density..),bins = 40, colour="black",fill=histCol,alpha=0.2)
     
     
     tema = ggpubr:::ttheme(base_size = 20,base_style = "minimal")
     
     #tema = ggpubr::ttheme()
   
  
     Table.sd = rbind(Table.sd,data.frame(Empirical=round(empirical_sd[col],3),Theoritical_mean=round(mean(SD[,names(SD)[col]]),3),Theoritical_median=round(median(SD[,names(SD)[col]]),3)))
  }
  stable.sd = ggtexttable(Table.sd, rows = paste("SD",1:nrow(Table.sd),sep=""), theme = tema
)

  if(joinTable==T){
  Histo[[col+1]] = stable.sd
  }
  plot1 = ggarrange(plotlist = Histo,ncol=np,nrow=nrow_plot,labels = "auto")
plot_var = annotate_figure(plot1, top = text_grob("Variation (SD)", 
               color = "red", face = "bold", size = 14))

  Histo_pars = list()
  Table_pars = NULL

  for (col in 1:(np)) {
    Histo_pars[[col]] = ggdensity(Pars, x = names(Pars)[col],
  # add = "median", 
   rug = TRUE)+geom_histogram(aes(y=..density..),bins = 40,      colour="black",fill=histCol,alpha=0.2)+geom_vline(xintercept = theta[col],color="blue")
  
  Table_pars = rbind(Table_pars,data.frame(True=theta[col],Theoritical_mean=round(mean(Pars[,names(Pars)[col]]),3),Theoritical_median=round(median(Pars[,names(Pars)[col]]),3)))
  }
  
  Histo_init = list()
  Table_init = NULL
  for (col in 1:(ni)) {
    Histo_init[[col]] = ggdensity(In, x = names(In)[col],
  # add = "median", 
   rug = TRUE)+geom_histogram(aes(y=..density..),bins = 40,      colour="black",fill=histCol,alpha=0.2)+geom_vline(xintercept = o[col],color="blue")
  
  Table_init = rbind(Table_init,data.frame(True=o[col],Theoritical_mean=round(mean(In[,names(In)[col]]),3),Theoritical_median=round(median(In[,names(In)[col]]),3)))
  }
  tpars = rbind(Table_pars,Table_init)
  stable = ggtexttable(tpars, rows = c(names(Pars),names(In)), theme = tema)

  Histo = c(Histo_pars,Histo_init)
  if(joinTable){
    Histo[[length(Histo)+1]] = stable
  }
    plot1 = ggarrange(plotlist = Histo,ncol=np,nrow=nrow_plot,labels = "auto")
    plot_est = annotate_figure(plot1, top = text_grob("Estimations", 
               color = "red", face = "bold", size = 14))
final_table = cbind(tpars,Table.sd)
names(final_table) = c("True","Estimated (mean)","Estimated (median)","SD","SD (mean)","SD (median)")
ftable = ggtexttable(final_table, rows = c(names(Pars),names(In)), theme = tema)
return(list(plot_est=plot_est,plot_var=plot_var,stable=stable,stable.sd=stable.sd,Histo=Histo,Histo_init=Histo_init,Histo_pars=Histo_pars,Table.sd=Table.sd,Table_pars=Table_pars,Table = ftable))

}


run_experiment1 <- function(theta,V,K,o,method="ssa",q=NULL){
  Pars=In=Vars=NULL
  sel<-round(seq(1,1000,length=80))
  ST = NULL
  for(i in 1:1000){
    set.seed(i)
    ozone.gil <- react(theta = theta,V =  V,K = K, y0=o,n.iter=1000,method=method,q = q)
  
    states = as.data.frame(ozone.gil$state)
    states_time = cbind(data.frame(time=ozone.gil$tm),states)
    ST = rbind( ST, data.frame(cbind(states_time,curve = i ) ))
    dat<-ozone.gil$state[sel,]
    tm<-ozone.gil$tm[sel]
    
    est.raw<-try(odest2(dat = dat,tms = tm,V = V,K = K,k=5,QP=TRUE))
    if(class(est.raw)!="try-error"){
      Pars = rbind(Pars,est.raw$theta)
      In = rbind(In,est.raw$mu0)
      Vars = rbind(Vars,diag(est.raw$Var))
    }
  }
  return(list(Vars=Vars,In=In,Pars=Pars,ST=ST))
}

In this report we analyze the kinetic systems of \(r\) reactions involving \(p\) different substances, that can be described by \(j=1,\ldots,r\) reaction equations:

\[\begin{eqnarray} k_{1j}Q_1+k_{2j}Q_2+\ldots+k_{pj}Q_p \stackrel{\theta_j}{\longrightarrow} s_{1j}P_1+s_{2j}P_2+\ldots+s_{pj}P_p. \label{eqn:simple-chemical-reaction} \end{eqnarray}\]

The difference \(v_{ij}= s_{ij} - k_{ij}\) is called the net-change. For a set of \(r\) reactions and \(p\) species, the molecular transfer from reactant to product species is according toa net change of \(\mathbf{V}=\mathbf{S}-\mathbf{K}\), where \(\mathbf{S}\) denotes the \(p\times r\) dimensional matrix of stoichiometric coefficients of the products, \(\mathbf{K}\) is the \(p\times r\) dimensional matrix of stoichiometric coefficients of the reactants, and \(\mathbf{V}\) is called the \(p\times r\) dimensional or matrix.

Experiments

Kinetic models

Lodka-Volterra dynamics

The system

Consider the predator-prey system, where each prey (\(X_1\)) generates two preys with a rate \(\lambda_1\), each pairs of prey-predator generates two predators (\(X_2\)) with rate \(\lambda_2\) and each predator has a death rate of \(\lambda_3\):

\[\begin{aligned} r_{1}: & X_{1} & \rightarrow 2X_{1}\\ r_{2}: & X_{1}+X_{2} &\rightarrow 2X_{2}\\ r_{3}: & X_{2} \rightarrow & \emptyset \end{aligned} \]

This would be equivalent to the ODE system

\[ \frac{\partial\left[x_{1}\right]}{\partial t} = r_{1}\left[x_{1}\right]-r_{2}\left[x_{1}\right]\left[x_{2}\right] \] \[\frac{\partial\left[x_{2}\right]}{\partial t}=r_{2}\left[x_{1}\right]\left[x_{2}\right]-r_{3}\left[x_{2}\right] \]

This system is fully characterized by the matrices

\[ K=\left[\begin{matrix}1 & 1 & 0 \\ 0 & 1 & 1\end{matrix}\right] ; \quad S=\left[\begin{matrix}2 & 0 & 0 \\ 0 & 2 & 0\end{matrix}\right]\] or \(K\) and \(V\), where \[V=S-K=\left[\begin{matrix}1 & -1 & 0 \\ 0 & 1 & -1\end{matrix}\right] \]

V=matrix(c(1,0,-1,1,0,-1),ncol=3)
K=matrix(c(1,0,1,1,0,1),ncol=3)
o=c(200,500)
theta=c(1,0.005,0.6)

names_part = c("$X_1$","$X_2$")
names_rates = paste("$r_",1:length(theta),"$",sep="")
#c("$r_1$","$r_2$","$r_3$","$r_4$","$r_5$","$r_6$","$r_7$","$r_8$")

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\)
1 0.005 0.6
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(X_1\) \(X_2\)
200 500
a=proc.time()
RE = run_experiment1(theta,V,K,o)
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a

Experiments results

p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

p$Table

#ggarrange(plotlist = list(p$stable,p$stable.sd),nrow=1,ncol=2)
text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)

h <- function(x,theta){
  c(x[1]*theta[1],x[1]*x[2]*theta[2],x[2]*theta[3])
}
sist.ode <- function(times,x,theta){
  dx = x;
  dimnames(dx) = dimnames(x);
  dx = V%*%h(x,theta)
  return(list(dx))
}


mod <- ode(o,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta,method='ode45')
mod = as.data.frame(mod)
names(mod) = c("time",paste("X",1:(ncol(mod)-1),sep=""))

theta_est = colMeans(Pars)
o_est = colMeans(In)
mod_est <- ode(o_est,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta_est,method='ode45')
mod_est= as.data.frame(mod_est)
names(mod_est) = c("time",paste("X",1:(ncol(mod)-1),sep=""))


ST$curve = factor( ST$curve )
# create plot
  
p1=ggplot(ST) +geom_line(aes( x=time,y= V1, group = curve ),color="grey") + theme_bw() + labs(y = "Number of prey (X1)") + geom_line(aes(x=time,y=X1),mod,colour="blue") + geom_line(aes(x=time,y=X1),mod_est,colour="green",linetype = "dashed")

p2=ggplot( ST ) +geom_line(aes( time, V2, group = curve ),color="grey") + theme_bw()  + labs(y = "Number of predators (X2)")+ geom_line(aes(x=time,y=X2),mod,colour="blue")+ geom_line(aes(x=time,y=X2),mod_est,colour="green",linetype = "dashed")


plot1 = ggarrange(p1,p2,ncol=1,nrow=2)
plot_simLV = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simLV

Ozone

The system

Consider a chemical systems where oxigen particles interact

\[\begin{aligned} r_{1}: & O_{2} & \rightarrow & 2O_{1}\\ r_{2}: & O_{1}+O_{2} & \rightarrow & O_{3}\\ r_{3}: & O_{3} & \rightarrow & O_{1}+O_{2}\\ r_{4}: & O_3+O_1 & \rightarrow & 2O_{2} \end{aligned} \]

which can be modeled by the system

\[ \begin{aligned} \frac{\partial\left[O_{1}\right]}{\partial t} &=& 2 r_{1}\left[O_{2}\right]-r_{2}\left[O_{1}\right]\left[O_{2}\right]+ r_{3}\left[O_{3}\right]-r_{4}\left[O_{3}\right]\left[O_{1}\right] \\ \frac{\partial\left[O_{2}\right]}{\partial t} &=& -r_{1}\left[O_{2}\right]-r_{2}\left[O_{1}\right]\left[O_{2}\right]+r_{3}\left[O_{3}\right]+2 r_{1}\left[O_{1}\right][O_1] \\ \frac{\partial\left[O_{3}\right]}{\partial t} &=& r_{2}[O_1]\left[O_{2}\right]-r_{3}\left[O_{3}\right]-r_{4}\left[O_{3}\right]\left[O_{1}\right] \end{aligned} \] So we consider the matrices

\[ K=\left[\begin{matrix}0 & 1 & 0 & 1 \\ 1 & 1 & 0 & 0 \\ 0 & 0 & 1 & 1\end{matrix}\right] ; S=\left[\begin{matrix}2 & 0 & 1 & 0 \\ 0 & 0 & 1 & 2 \\ 0 & 1 & 0 & 0\end{matrix}\right]\]

then,

\[V=S-K=\left[\begin{matrix}2 & -1 & 1 & -1 \\ -1 & -1 & 1 & 2 \\ 0 & 1 & -1 & -1\end{matrix}\right]\]

Results Experiment_Oz_01

#rm(list = ls())
V=matrix(c(2,-1,0,-1,-1,1,1,1,-1,-1,2,-1),ncol=4)
K = -V
K[K<0]=0
o=c(200,100,200)

theta=c(5,0.1,20,0.1)
#knitr::kable(V ,  caption = "V")
names_part = c("$O_1$","$O_2$","$O_3$")
names_rates = paste("$r_",1:length(theta),"$",sep="")
#c("$r_1$","$r_2$","$r_3$","$r_4$","$r_5$","$r_6$","$r_7$","$r_8$")

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\) \(r_4\)
5 0.1 20 0.1
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(O_1\) \(O_2\) \(O_3\)
200 100 200
a=proc.time()
RE = run_experiment1(theta,V,K,o,method="ssa")
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

p$Table

#ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)
text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)

h <- function(x,theta){
  c(theta[1]*x[2],x[1]*x[2]*theta[2],theta[3]*x[3],theta[4]*x[1]*x[3])
}
sist.ode <- function(times,x,theta){
  dx = x;
  dimnames(dx) = dimnames(x);
  dx = V%*%h(x,theta)
  return(list(dx))
}


mod <- ode(o,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta,method='ode45')
mod = as.data.frame(mod)
names(mod) = c("time",paste("O",1:(ncol(mod)-1),sep=""))

theta_est = colMeans(Pars)
o_est = colMeans(In)
mod_est <- ode(o_est,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta_est,method='ode45')
mod_est= as.data.frame(mod_est)
names(mod_est) = c("time",paste("O",1:(ncol(mod)-1),sep=""))

ST$curve = factor( ST$curve )
# create plot
p1=ggplot( ST ) +geom_line(aes( time, V1, group = curve ),color="grey") + theme_bw() + labs(y = " O1")+ geom_line(aes(x=time,y=O1),mod) + geom_line(aes(x=time,y=O1),mod_est,colour="green",linetype = "dashed")

p2=ggplot( ST ) +geom_line(aes( time, V2, group = curve ),color="grey") + theme_bw()  + labs(y = "Amount of O2")+ geom_line(aes(x=time,y=O2),mod) + geom_line(aes(x=time,y=O2),mod_est,colour="green",linetype = "dashed")

p3=ggplot( ST ) +geom_line(aes( time, V3, group = curve ),color="grey") + theme_bw()  + labs(y = "Amount of O3")+ geom_line(aes(x=time,y=O3),mod) + geom_line(aes(x=time,y=O3),mod_est,colour="green",linetype = "dashed")

plot1 = ggarrange(p1,p2,p3,ncol=1,nrow=3)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

Results Experiment_Oz_02

V=matrix(c(2,-1,0,-1,-1,1,1,1,-1,-1,2,-1),ncol=4)
K = -V
K[K<0]=0
o=c(500,300,200)
theta=c(1/2,1/4,12,1)

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\) \(r_4\)
0.5 0.25 12 1
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(O_1\) \(O_2\) \(O_3\)
500 300 200
a=proc.time()
RE = run_experiment1(theta,V,K,o,method="ssa")
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

p$Table

#ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)
text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)

ST$curve = factor( ST$curve )
mod <- ode(o,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta,method='ode45')
mod = as.data.frame(mod)
names(mod) = c("time",paste("O",1:(ncol(mod)-1),sep=""))


o_est = colMeans(In)
theta_est = colMeans(Pars)
mod_est <- ode(o_est,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta_est,method='ode45')
mod_est= as.data.frame(mod_est)
names(mod_est) = c("time",paste("O",1:(ncol(mod)-1),sep=""))


p1=ggplot( ST ) +geom_line(aes( time, V1, group = curve ),color="grey") + theme_bw() + labs(y = " O1")+ geom_line(aes(x=time,y=O1),mod) + geom_line(aes(x=time,y=O1),mod_est,colour="green",linetype = "dashed")

p2=ggplot( ST ) +geom_line(aes( time, V2, group = curve ),color="grey") + theme_bw()  + labs(y = "Amount of O2")+ geom_line(aes(x=time,y=O2),mod) + geom_line(aes(x=time,y=O2),mod_est,colour="green",linetype = "dashed")

p3=ggplot( ST ) +geom_line(aes( time, V3, group = curve ),color="grey") + theme_bw()  + labs(y = "Amount of O3")+ geom_line(aes(x=time,y=O3),mod) + geom_line(aes(x=time,y=O3),mod_est,colour="green",linetype = "dashed")

plot1 = ggarrange(p1,p2,p3,ncol=1,nrow=3)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

TFs binding to DNA system

The system

Two different proteins, \(P\) and \(Q\), can bind to DNA. Using the notation \(P\cdot DNA\) to denote \(P\) bound to DNA, etc, the chemical equations for the process are

\[\begin{aligned} P+D N A \quad &\stackrel{r_{1}}{\longrightarrow} P \cdot D N A\\ Q+D N A \quad & \stackrel{r_{2}}{\longrightarrow} Q \cdot D N A\\ P+Q \cdot D N A \quad & \stackrel{r_3}{\longrightarrow} P \cdot Q \cdot D N A\\ Q+P \cdot D N A \quad & \stackrel{r _4}{\longrightarrow} P \cdot Q \cdot D N A\\ P \cdot D N A \quad & \stackrel{r_5}{\longrightarrow} P+D N A \\ Q \cdot D N A \quad & \stackrel{r_6}{\longrightarrow} Q + \cdot D N A \\ P \cdot Q \cdot D N A \quad & \stackrel{r_{7}}{\longrightarrow} P + Q \cdot D N A \\ P \cdot Q \cdot D N A \quad & \stackrel{r_{8}}{\longrightarrow} Q + P \cdot D N A \end{aligned}\]

Results Experiment_TF_01

K=t(matrix(c(1,0,1,rep(0,5),
           0,1,0,1,rep(0,4),
           1,1,rep(0,6),
           rep(0,3),1,1,rep(0,3),
           0,0,1,0,0,1,0,0,
           rep(0,6),1,1),ncol=6))
S=t(matrix(c(rep(0,4),1,0,1,0,
           rep(0,5),1,0,1,
           rep(0,4),1,1,rep(0,2),
           1,rep(0,6),1,
           0,1,0,0,0,0,1,0,
           0,0,1,1,0,0,0,0),ncol=6))
V=S-K
o=rep(100,6)
theta=c(0.1,0.15,0.06,0.05,0.7,0.9,0.4,0.3)
#knitr::kable(V ,  caption = "V")
names_part = c("P","Q","DNA","PDNA","QDNA","PQDNA")
names_rates = paste("$r_",1:8,"$",sep="")
#c("$r_1$","$r_2$","$r_3$","$r_4$","$r_5$","$r_6$","$r_7$","$r_8$")

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\) \(r_4\) \(r_5\) \(r_6\) \(r_7\) \(r_8\)
0.1 0.15 0.06 0.05 0.7 0.9 0.4 0.3
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
P Q DNA PDNA QDNA PQDNA
100 100 100 100 100 100
a=proc.time()
RE = run_experiment1(theta,V,K,o)
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

p$plot_var

ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)

text <- paste("This experiment took ",a[3],"seconds to be performed")
print(text.p)

ST = RE$ST
ST$curve = factor( ST$curve )

h <- function(x,theta){
  c(x[1]*x[3]*theta[1],theta[2]*x[2]*x[3],theta[3]*x[1]*x[5],theta[4]*x[2]*x[4],theta[5]*x[4],theta[6]*x[5],theta[7]*x[6],theta[8]*x[6])
}

sist.ode <- function(times,x,theta){
  dx = x;
  dimnames(dx) = dimnames(x);
  dx = V%*%h(x,theta)
  return(list(dx))
}

mod <- ode(o,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta,method='ode45')
mod = as.data.frame(mod)
names(mod) = c("time",names_part)

theta_est = colMeans(Pars)
o_est = colMeans(In)
mod_est <- ode(o_est,times=seq(min(ST$time),max(ST$time),length.out = 100),sist.ode,theta_est,method='ode45')
mod_est= as.data.frame(mod_est)
names(mod_est) = c("time",names_part)

p1=ggplot( ST ) +geom_line(color="grey", aes( time, V1, group = curve )) + theme_bw() + labs(y = "P")+  geom_line(aes(x=time,y=get(names_part[1])),mod) + geom_line(aes(x=time,y=get(names_part[1])),mod_est,colour="green",linetype = "dashed")

p2=ggplot( ST ) +geom_line(color="grey", aes( time, V2, group = curve )) + theme_bw()  + labs(y = "Q")+  geom_line(aes(x=time,y=get(names_part[2])),mod) + geom_line(aes(x=time,y=get(names_part[2])),mod_est,colour="green",linetype = "dashed")

p3=ggplot( ST ) +geom_line(color="grey", aes( time, V3, group = curve )) + theme_bw()  + labs(y = "DNA")+  geom_line(aes(x=time,y=get(names_part[3])),mod) + geom_line(aes(x=time,y=get(names_part[3])),mod_est,colour="green",linetype = "dashed")

p4=ggplot( ST ) +geom_line(color="grey", aes( time, V4, group = curve )) + theme_bw() + labs(y = "PDNA")+  geom_line(aes(x=time,y=get(names_part[4])),mod) + geom_line(aes(x=time,y=get(names_part[4])),mod_est,colour="green",linetype = "dashed")

p5=ggplot( ST ) +geom_line(color="grey", aes( time, V5, group = curve )) + theme_bw()  + labs(y = "QDNA")+  geom_line(aes(x=time,y=get(names_part[5])),mod) + geom_line(aes(x=time,y=get(names_part[5])),mod_est,colour="green",linetype = "dashed")

p6=ggplot( ST ) +geom_line(color="grey", aes( time, V6, group = curve )) + theme_bw()  + labs(y = "PQDNA")+  geom_line(aes(x=time,y=get(names_part[6])),mod) + geom_line(aes(x=time,y=get(names_part[6])),mod_est,colour="green",linetype = "dashed")

plot1 = ggarrange(p1,p2,p3,p4,p5,p6,ncol=1,nrow=6,heights = 3)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

Compartimental models

SM biosphere system

g4 = graph( c("Vegetation","Litter",
              "Vegetation","Heterotrophs",
              "Heterotrophs","Litter",
              "Soil","Vegetation",
              "Litter","Soil",
              "Soil","Ground water",
              "Ground water","Surface water",
              "Soil","Surface water",
              "Surface water","sinks",
              "Soil","Deeper  soil layers",
              "source 1","Litter",
              "source 2","Vegetation",
              "source 3","Surface water"))

g4 = g4 %>%  set_edge_attr("label", value =TeX(c(paste("$r_{",1:10,"}$",sep=""),paste("$q_{",1:3,"}$",sep=""))))


#E(g4)
#V(g4)

V(g4)$group = c(rep(1,6),rep(0,5))


plot(g4, edge.arrow.size=1, vertex.color=c( "white", "skyblue")[1+(V(g4)$group==1)] , vertex.size=30, 
     vertex.frame.color="gray", vertex.label.color="black", 
     vertex.label.cex=2, vertex.label.dist=0, edge.label.dist=0, edge.curved=-0.2, edge.label.size=30) 

We consider the following ODE system

\[ \frac{\partial Q}{\partial t}=\left[\begin{matrix}-1 & -1 & 0 & 1 & 0 & 0 & 0 & 0 & 0 & 0 \\ 1 & 0 & 1 & 0 & -1 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 0 & 1 & -1 & 1 & 0 \\ 0 & 0 & 0 & -1 & 1 & -1 & 0 & 0 & -1 & -1 \\ 0 & 1 & -1 & 0 & 0 & 0 & 0 & 0 & 0 & 0 \\ 0 & 0 & 0 & 0 & 0 & 1 & -1 & 0 & 0 & 0\end{matrix}\right]\left[\begin{matrix}r_{1} Q_V \\ r_{2} Q_V \\ r_{3} Q_H \\ r_{4} Q_S \\ r_{5} Q_L \\ r_{6} Q_S \\ r_{7} Q_{GW} \\ r_{8} Q_{SW} \\ r_{9} Q_S \\ r_{10} Q_S \end{matrix}\right]+\left[\begin{matrix}q_{2} \\ q_{1} \\ q_{3} \\ 0 \\ 0 \\ 0\end{matrix}\right] \]

which is equivalent to the kinetic system

\[ \begin{aligned} r_{1}: & {\text{Vegetation}} & \rightarrow & {\text{Litter}}\\ r_{2}: & {\text{Vegetation}} & \rightarrow & {\text{Heterotrophs}}\\ r_{3}: & {\text{Heterotrophs}} & \rightarrow & {\text{Litter}}\\ r_{4}: & {\text{Soil}} & \rightarrow & {\text{Vegetation}} \\ r_{5}: & {\text{Litter}} & \rightarrow & {\text{Soil}}\\ r_{6}: & {\text{Soil}} & \rightarrow & {\text{Ground water}}\\ r_{7}: & {\text{Grounf water}} & \rightarrow & {\text{Surface water}}\\ r_{8}: & {\text{Surface water}} & \rightarrow & \emptyset \\ r_{9}: & {\text{Soil}} & \rightarrow & {\text{Surface water}}\\ r_{10}: & {\text{Soil}} & \rightarrow & \emptyset \end{aligned} \]

consider also the external influence

\[ \begin{aligned} q_{1}: & \emptyset & \rightarrow & {\text{Litter}}\\ q_{2}: & \emptyset & \rightarrow & {\text{Vegetation}}\\ q_{3}: & \emptyset & \rightarrow & {\text{Surface water}} \end{aligned} \]

Experiment_SM

V=matrix(c(-1,1,rep(0,4),
           -1,0,0,0,1,0,
           0,1,0,0,-1,0,
           1,0,0,-1,0,0,
           0,-1,0,1,0,0,
           0,0,0,-1,0,1,
           0,0,1,0,0,-1,
           0,0,-1,0,0,0,
           0,0,1,-1,0,0,
           0,0,0,-1,0,0),ncol=10)

#V = cbind(V,matrix(c(0,1,0,0,0,0,
 #                    1,0,0,0,0,0,
  #                   0,0,1,0,0,0),ncol=3))

K = -V
K[K<0]=0

o=c(5500,18500,8650000,760000,550,36100000)
o=rep(1000,length(o))
theta=c(0.85,0.15,0.8,0.04,0.2,
        0.0005,0.4,0.8,0.006,0.022)

thetha = rep(1,length(theta))

names_part = p_names = c("Vegetation","Litter","Surface water","Soil","Heterotrophs","Ground water")
names_rates = paste("$r_{",1:length(theta),"}$",sep="")

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_{1}\) \(r_{2}\) \(r_{3}\) \(r_{4}\) \(r_{5}\) \(r_{6}\) \(r_{7}\) \(r_{8}\) \(r_{9}\) \(r_{10}\)
0.85 0.15 0.8 0.04 0.2 5e-04 0.4 0.8 0.006 0.022
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
Vegetation Litter Surface water Soil Heterotrophs Ground water
1000 1000 1000 1000 1000 1000
a=proc.time()
RE = run_experiment1(theta,V,K,o,method = "em")#,q=c(0.069,0.26,0.001))
Pars = RE$Pars
In =  RE$In
a = proc.time()-a
Vars = RE$Vars
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

p$Table

#ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2,widths = 8,heights = 3)
text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)

ST = RE$ST




ST$curve = factor( ST$curve )

pl <- lapply(1:length(p_names), function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = p_names[i]))

plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

results Experiment_SM_01

V=matrix(c(-1,1,rep(0,4),
           -1,0,0,0,1,0,
           0,1,0,0,-1,0,
           1,0,0,-1,0,0,
           0,-1,0,1,0,0,
           0,0,0,-1,0,1,
           0,0,1,0,0,-1,
           0,0,-1,0,0,0,
           0,0,1,-1,0,0,
           0,0,0,-1,0,0),ncol=10)
K = -V
K[K<0]=0

o=c(5500,18500,8650000,760000,550,36100000)

theta=c(0.85,0.15,0.8,0.04,0.2,
        0.0005,0.4,0.8,0.006,0.022)

names_part = paste("$Q_",c("A","B","C","D","E","F"),"$",sep="")
names_rates = paste("$r_",1:length(theta),"$",sep="")
#c("$r_1$","$r_2$","$r_3$","$r_4$","$r_5$","$r_6$","$r_7$","$r_8$")

knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\) \(r_4\) \(r_5\) \(r_6\) \(r_7\) \(r_8\) \(r_9\) \(r_10\)
0.85 0.15 0.8 0.04 0.2 5e-04 0.4 0.8 0.006 0.022
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(Q_A\) \(Q_B\) \(Q_C\) \(Q_D\) \(Q_E\) \(Q_F\)
5500 18500 8650000 760000 550 36100000
a=proc.time()
RE = run_experiment1(theta,V,K,o)
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.88044e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.45748e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.39126e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.58045e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.48729e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.37199e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.50145e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.1822e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.31033e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.05144e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.56158e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05313e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.76719e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.90549e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.75098e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.82488e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.53138e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.31819e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.5139e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.32216e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.62698e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.61871e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.87149e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.82033e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.37011e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.13143e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.75697e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.951e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.72031e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.01452e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.33242e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.04184e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.73618e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.95167e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.77817e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.04485e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.5671e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.74227e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.31686e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.07194e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.14643e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.70708e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.09397e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.81678e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.55258e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.27301e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.48368e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.77464e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.04305e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.97553e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.43439e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.12506e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.34055e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.03088e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.59548e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.61813e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.39805e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.03967e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.8186e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.53398e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.33965e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.71189e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.45654e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.96254e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.53476e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.70352e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.05405e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.62927e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.50249e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.05334e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.79605e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.10149e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.35533e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.71094e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.01372e-23
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.14461e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.94933e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.93958e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.49553e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.98425e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.90522e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.87651e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.89369e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.17656e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.22857e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.11043e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.08046e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.14551e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.151e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.06477e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.51792e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.56853e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.26418e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.27286e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.55752e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.88519e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.01712e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.73465e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.00885e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.06791e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.13758e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.68686e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.21633e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.6683e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.11277e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.36256e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.76214e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.38972e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.07068e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.61835e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05993e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.19296e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.88463e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.1943e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.26339e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.64045e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.51483e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.24675e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.59983e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.22138e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.60377e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.08148e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.06764e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.80029e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.55686e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.58791e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.33914e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.65236e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.00411e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.54359e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.54394e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.87614e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.60631e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.84813e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.24999e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.14294e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.51975e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.62227e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.12224e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.12876e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.18705e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.46206e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.44241e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.63048e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.40337e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.33171e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.22303e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.2732e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.97479e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.33902e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.81737e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.08767e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.75108e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.30799e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.29417e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.75125e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.73195e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.09511e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.41267e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.1678e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.10624e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.45725e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.52313e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.11369e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.31289e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.17978e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.65294e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.97803e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.56193e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.59702e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.588e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.06128e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.47079e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.89322e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.47843e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.9282e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.61382e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.24395e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.49635e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.73065e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.17791e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.75592e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.69882e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.85918e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.57792e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.14767e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.90397e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.09507e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.34465e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.63313e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.14023e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.04167e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.99644e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.08092e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.18815e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.69206e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.46806e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.04575e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.54177e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.98048e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.12399e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.37444e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.33548e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.63923e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.70916e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.62151e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.16496e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.6107e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.9973e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.97247e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.98665e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.15149e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.27339e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.7648e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.75261e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.07427e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.45544e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.13654e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.25736e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.95689e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.37603e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.5607e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.14063e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.7062e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.46168e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.4281e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.14626e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.2422e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.92926e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.4176e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.27389e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.13285e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.17746e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.40521e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.96126e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.95675e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.55525e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.09882e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.56256e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.60176e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.73092e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.87311e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.54509e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.97515e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.43682e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.82686e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.82249e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.25161e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.39331e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.00162e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.54386e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.61761e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.04254e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.41121e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.01881e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.13803e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.17272e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.12593e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.02599e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.22493e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.07717e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.75655e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.13178e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.41424e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.43135e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.82254e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.47887e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.70447e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.60368e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.54162e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.74317e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.49396e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.01661e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.46266e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.78314e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.50465e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.19136e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.94529e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.92689e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.07652e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.10719e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.20261e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.00771e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.9532e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.16367e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.41548e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.77585e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.43011e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.45722e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.78198e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05758e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.5295e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.50235e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.58904e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.73834e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.34413e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.58982e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.31682e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.70254e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.60666e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.60993e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.17012e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.60114e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.51713e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.30636e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.39871e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.39611e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.47111e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.25972e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.5789e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.07005e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.52679e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.4663e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.55757e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.28197e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.79818e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.3457e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.70991e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.92125e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.1024e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.18386e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.90821e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.64953e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.58878e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.46346e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.47533e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.36461e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.82107e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.17169e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.26659e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.44309e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.73186e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.59797e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.0754e-23
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.45302e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.60535e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.3999e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.91501e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.60222e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.48076e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.46553e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.05243e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.7019e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.32761e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.2361e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.79111e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.74242e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.01125e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.32811e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.49457e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.15903e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.30974e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.95664e-22
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.61803e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.94282e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.17645e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.4595e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.65194e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.4232e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.85154e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.7863e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.40364e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.16982e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.30657e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.93407e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.37475e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.32582e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.45207e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.29046e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.46723e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.34268e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.0366e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.81627e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.02091e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.9395e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.87692e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.34192e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.84008e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.16606e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.41344e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.23253e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.94957e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.53627e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.14151e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.63461e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.38431e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.7142e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.81625e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.72893e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.73688e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.78826e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.74695e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.59569e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.9855e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.63115e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.73093e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.95592e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.13814e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.15055e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.09558e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.00368e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.2489e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.11243e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.62822e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.82789e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.07608e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.14813e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.63408e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.09394e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.21698e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.41953e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.04641e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.35568e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.13048e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.73963e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.38396e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.97048e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.95948e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.61954e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.24539e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.14574e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.83078e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.97632e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.40221e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.77209e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.74459e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.37705e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.36647e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.04954e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.84483e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.25494e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.46797e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.26486e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.86919e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.65249e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.69139e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.97535e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.96005e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.92854e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.54145e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.10874e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.33129e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.17872e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.06359e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.4375e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.29311e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.53803e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.14674e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.63444e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.16347e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.11986e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.34856e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.15029e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.10133e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.23081e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.22623e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.4928e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.21022e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.16312e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.93913e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.13045e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.46129e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.83167e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.6826e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.68369e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.58069e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.26847e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.56267e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.16968e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.69745e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.59297e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.2712e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.76465e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.39943e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.25767e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.64227e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.84416e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.13463e-22
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.78334e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.4478e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.0212e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.56675e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.1125e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.37525e-17
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.82652e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.81135e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.28573e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.07288e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.58761e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.94284e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.14395e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.32824e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.62347e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.02545e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.72566e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.78832e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.79046e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.93349e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.90095e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.24572e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.1602e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.11513e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.16922e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.7512e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.78057e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.082e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.07497e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.86459e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.98171e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.93551e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.80297e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.46935e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.46814e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.42982e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.15168e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.04376e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.91296e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.32548e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.02096e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.54733e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.02389e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.68023e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.25412e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.86799e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.97232e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.02813e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.69338e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.57672e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.2523e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.50141e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.58978e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.47512e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.1277e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.44806e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.50436e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.48735e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.25062e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.08982e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.38396e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.13177e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.36526e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.5434e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.27404e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.2569e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.74527e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.62099e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.37389e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.20733e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.95856e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.42636e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.04452e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.19655e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.13495e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.20626e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.97553e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.28732e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05683e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.05197e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.36983e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.76602e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.57192e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.88939e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.03699e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.02973e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.64297e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.87894e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.55581e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.29374e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.38267e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.30967e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.51535e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.80709e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.12166e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.09404e-17
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.29659e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.16209e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.69278e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.88626e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.54983e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.20399e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.62692e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.50801e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.06626e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.55654e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.60601e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.3198e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.36279e-23
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.75297e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.60212e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.51202e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.4626e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.48674e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.74435e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.79682e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.1277e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.94911e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.21842e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.99027e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.46232e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.52795e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.79408e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.98851e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.33232e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.35639e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.9202e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.51426e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.6809e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.02344e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.75653e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.5754e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.38059e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.42063e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.87733e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.69548e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.13511e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.6329e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.12975e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.92507e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.4737e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.63494e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.82374e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.42509e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.52605e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.17687e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.67916e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.39028e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.32929e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.06956e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.1152e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.13028e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.78266e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.99707e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.93102e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.47432e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.85745e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.5051e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.43274e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.18737e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.01528e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.2149e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.8491e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.36721e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.19716e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.60904e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.18633e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.80819e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.30989e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05509e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.83699e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.3097e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.34358e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.0617e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.46822e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.88381e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.65546e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.92299e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.95753e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.24695e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.28281e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.22562e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.19053e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.58241e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.6899e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.05362e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.58837e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.37371e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.04758e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.16823e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.31516e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.40366e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.84931e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.64901e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.51213e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.01041e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.26774e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.1834e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.95341e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.30088e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.98216e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.07539e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.37167e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.65975e-23
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.26584e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.926e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.06185e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.81287e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.27561e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.45125e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.95001e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.8093e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.21344e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.57348e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.93942e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.71262e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.33473e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.32671e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.47143e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.85499e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.09866e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.38415e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.92616e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.53356e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.72046e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.03492e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.43678e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.76607e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.05274e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.01072e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.40642e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.1532e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.21268e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.68132e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.13112e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.256e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.99329e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.18862e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.55823e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.8777e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.03344e-18
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.0582e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.89921e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.20348e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.0545e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.42349e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.51758e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.04464e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.67164e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.57338e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.00397e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.87622e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.61069e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.12655e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.11433e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.97967e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.95835e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.63171e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.01509e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.58239e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.45038e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.93945e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.70204e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.54197e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.57719e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.08437e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.64171e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.10307e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.35391e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.30932e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.233e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.80959e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.55757e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.06058e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.42722e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.02811e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.92331e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.95832e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.67702e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.07318e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.37254e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.12388e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.71998e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.64479e-23
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.3617e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.25382e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.1549e-18
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.07215e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.81131e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.95127e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.00755e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.74388e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.61573e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.1689e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.68212e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.76398e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.61566e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.12354e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.29352e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.08246e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.83441e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.75462e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.87156e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.58925e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.10312e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.20853e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.74141e-19
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.20117e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.92726e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.92329e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.76929e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 6.31187e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.13345e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.256e-21
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 5.86692e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.19494e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.2217e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.2051e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 7.91187e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.49566e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.62309e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.14322e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.29628e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.83144e-22
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.10983e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 2.48326e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 3.44323e-19
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.49194e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 9.45683e-21
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.22888e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 8.10664e-20
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 4.07654e-20
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in solve.default(A) : 
##   system is computationally singular: reciprocal condition number = 1.12049e-19
Pars = RE$Pars
In =  RE$In
a = proc.time()-a
Vars = RE$Vars
p = report_sd(Vars,Pars,In,histCol="black")
p$plot_est
p$Table
text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)
ST = RE$ST
ST$curve = factor( ST$curve )
p_names = c("Vegetation","Litter","Surface water","Soil","Heterotrophs","Ground water")
pl <- lapply(1:length(p_names), function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = p_names[i]))

plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

results Experiment_SM_02

V=matrix(c(-1,1,rep(0,4),
           -1,0,0,0,1,0,
           0,1,0,0,-1,0,
           1,0,0,-1,0,0,
           0,-1,0,1,0,0,
           0,0,0,-1,0,1,
           0,0,1,0,0,-1,
           0,0,-1,0,0,0,
           0,0,1,-1,0,0,
           0,0,0,-1,0,0),ncol=10)
K = -V
K[K<0]=0

o=c(5500,18500,8650000,760000,550,36100000)
o=rep(2000,length(o))
theta=c(0.85,0.15,0.8,0.04,0.2,
        0.0005,0.4,0.8,0.006,0.022)


knitr::kable(t(theta) ,  caption = "Simulation rates",col.names = names_rates)
Simulation rates
\(r_1\) \(r_2\) \(r_3\) \(r_4\) \(r_5\) \(r_6\) \(r_7\) \(r_8\) \(r_9\) \(r_10\)
0.85 0.15 0.8 0.04 0.2 5e-04 0.4 0.8 0.006 0.022
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(Q_A\) \(Q_B\) \(Q_C\) \(Q_D\) \(Q_E\) \(Q_F\)
2000 2000 2000 2000 2000 2000
a=proc.time()
RE = run_experiment1(theta,V,K,o)
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)
p$plot_est

#p$plot_var
ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2,widths = 6,heights = 3)

text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")
print(text.p)

ST = RE$ST
ST$curve = factor( ST$curve )
p_names = c("Vegetation","Litter","Surface water","Soil","Heterotrophs","Ground water")
pl <- lapply(1:length(p_names), function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = p_names[i]))

plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

Geothermal development (KGRA)

g4 = graph( c("Air","Soil",
              "Air","Heterotrophs",
              "Soil","Heterotrophs",
              "Vegetation","Heterotrophs",
              "Heterotrophs","Soil",
              "Air","Vegetation",
              "Air","Cattle",
              "Vegetation","Cattle",
              "Soil","Cattle",
              "Cattle","Soil",
              "Soil","Vegetation",
              "Vegetation","Soil",
              "Vegetation","Sheep",
              "Air","Sheep",
              "Ground water","Cattle",
              "Cattle","Man",
              "Sheep","Man",
              "Sheep","Soil",
              "Soil","Sheep",
              "Ground water","Sheep",
              "Ground water","Man",
              "Man","sink",
              "Ground water","sink 2",
              "Soil","Deep soil",
              "Soil","Surface runoff",
              "Surface runoff","sink 4",
              "Surface runoff","Ground water",
              "Deep soil","sinik6",
              "Air","Man",
              "Deep soil","Ground water",
              "Soil","Air",
              "Air","sink5",
              "Source","Air"
              ))

#E(g4)
#V(g4)

V(g4)$group = rep("lightgreen",length(V(g4)))
V(g4)$group[c(9,10,13,14,15,16)] = "white"
labcol = rep("black",length(V(g4)))
labcol[c(9,10,13,14,15)] = "white"

g4 = g4 %>%  set_edge_attr("label", value =TeX(c(paste("$r_{",1:32,"}$",sep=""),paste("$q_{",1,"}$",sep=""))))

plot(g4, edge.arrow.size=1, vertex.color=V(g4)$group, vertex.size=15,
     vertex.frame.color="gray", vertex.label.color=labcol,vertex.size=2, 
     vertex.label.cex=1, vertex.label.dist=0, edge.curved=-0.1) 

System

\[\begin{aligned} r_{1}: & Q_{1} & \rightarrow & Q_{5}\\ r_{2}: & Q_{1} & \rightarrow & Q_{2}\\ r_{3}: & Q_{5} & \rightarrow & Q_{2}\\ r_{4}: & Q_{3} & \rightarrow & Q_{2} \\ r_{5}: & Q_{2} & \rightarrow & Q_{5}\\ r_{6}: & Q_{1} & \rightarrow & Q_{3}\\ r_{7}: & Q_{1} & \rightarrow & Q_{4}\\ r_{8}: & Q_{3} & \rightarrow & Q_{4} \\ r_{9}: & Q_{5} & \rightarrow & Q_{4}\\ r_{10}: & Q_{4} & \rightarrow & Q_{5} \\ r_{11}: & Q_{5} & \rightarrow & Q_{3}\\ r_{12}: & Q_{3} & \rightarrow & Q_{5}\\ r_{13}: & Q_{3} & \rightarrow & Q_{6}\\ r_{14}: & Q_{1} & \rightarrow & Q_{6} \\ r_{15}: & Q_{9} & \rightarrow & Q_{4} \\ r_{16}: & Q_{4} & \rightarrow & Q_{10}\\ r_{17}: & Q_{6} & \rightarrow & Q_{10}\\ r_{18}: & Q_{6} & \rightarrow & Q_{5} \\ r_{19}: & Q_{5} & \rightarrow & Q_{6}\\ r_{20}: & Q_{9} & \rightarrow & Q_{6} \\ r_{21}: & Q_{9} & \rightarrow & Q_{10}\\ r_{22}: & Q_{10} & \rightarrow & \emptyset \\ r_{23}: & Q_{9} & \rightarrow & \emptyset\\ r_{24}: & Q_{5} & \rightarrow & Q_{8} \\ r_{25}: & Q_{5} & \rightarrow & Q_{7} \\ r_{26}: & Q_7 & \rightarrow & \emptyset \\ r_{27}: & Q_7 & \rightarrow & Q_{9}\\ r_{28}: & Q_8 & \rightarrow & \emptyset \\ r_{29}: & Q_{1} & \rightarrow & Q_{10}\\ r_{30}: & Q_{8} & \rightarrow & Q_{9} \\ r_{31}: & Q_5 & \rightarrow & Q_{1}\\ r_{32}: & Q_{1} & \rightarrow & \emptyset \end{aligned} \] #### results Experiment_GD_01

V = matrix(0,nrow=10,ncol=32)
  #air 
  V[1,31] = 1
  V[1,c(1,2,6,7,14,29,32)] = -1
  #small mammals
  V[2,c(2,3,4)] = 1
  V[2,5] = -1
  #vegetation
  V[3,c(6,11)] = 1
  V[3,c(4,8,12,13)] = -1
  # cattle 
  V[4,c(7,8,9,15)] = 1
  V[4,c(10,16)] = -1
  # soil 
  V[5,c(1,5,10,12,18)] = 1
  V[5,c(3,9,11,19,24,25,31)] = -1
  # sheep 
  V[6,c(13,14,19,20)] = 1
  V[6,c(17,18)] = -1
  # surface water
  V[7,25] = 1
  V[7,c(26,27)] = -1
  # deep soil
  V[8,24] = 1
  V[8,c(28,30)] = -1
  # ground water
  V[9,c(27,30)] = 1
  V[9,c(15,20,21,23)] = -1
  # man
  V[10,c(16,17,21,29)] = 1
  V[10,22] = -1
K = -V
K[K<0]=0

o=c(1E10,1E3,6.5E7,5E4,2E9,1E4,5E4,1E9,5E8,5E2)/2

theta=c(8.6E-5,2.2E-11,0,8E-6,0.98,2.1E-5,7.3E-10,3E-4,2.2E-7,0.5,2E-5,1.1E-3,3E-5,1.5E-10,3.4E-7,1E-3,1.2E-2,0.6,4.3E-8,3.7E-8,2E-7,0.45,2E-3,2E-4,2E-8,2E-3,1E-3,2E-4,6.6E-10,2E-4,0,0.9889)
#knitr::kable(V ,  caption = "V")
#knitr::kable(K ,  caption = "K")
S = V+K
#knitr::kable(S ,  caption = "S")

thetha = rep(1,length(theta))

names_part = paste("$Q_",1:length(o),"$",sep="")
names_rates = paste("$r_{",1:length(theta),"}$",sep="")

knitr::kable(t(theta[1:10]) ,  caption = "Simulation rates",col.names = names_rates[1:10])
Simulation rates
\(r_{1}\) \(r_{2}\) \(r_{3}\) \(r_{4}\) \(r_{5}\) \(r_{6}\) \(r_{7}\) \(r_{8}\) \(r_{9}\) \(r_{10}\)
8.6e-05 0 0 8e-06 0.98 2.1e-05 0 3e-04 2e-07 0.5
knitr::kable(t(theta[11:20]) ,  caption = "Simulation rates",col.names = names_rates[11:20])
Simulation rates
\(r_{11}\) \(r_{12}\) \(r_{13}\) \(r_{14}\) \(r_{15}\) \(r_{16}\) \(r_{17}\) \(r_{18}\) \(r_{19}\) \(r_{20}\)
2e-05 0.0011 3e-05 0 3e-07 0.001 0.012 0.6 0 0
knitr::kable(t(theta[21:32]) ,  caption = "Simulation rates",col.names = names_rates[21:32])
Simulation rates
\(r_{21}\) \(r_{22}\) \(r_{23}\) \(r_{24}\) \(r_{25}\) \(r_{26}\) \(r_{27}\) \(r_{28}\) \(r_{29}\) \(r_{30}\) \(r_{31}\) \(r_{32}\)
2e-07 0.45 0.002 2e-04 0 0.002 0.001 2e-04 0 2e-04 0 0.9889
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(Q_1\) \(Q_2\) \(Q_3\) \(Q_4\) \(Q_5\) \(Q_6\) \(Q_7\) \(Q_8\) \(Q_9\) \(Q_10\)
5e+09 500 32500000 25000 1e+09 5000 25000 5e+08 2.5e+08 250
a=proc.time()
RE = run_experiment1(theta,V,K,o,method = "em")
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   constraints are inconsistent, no solution!
Pars = RE$Pars
In =  RE$In

Vars = RE$Vars
a = proc.time()-a
p = report_sd(Vars,Pars,In,histCol="black",joinTable = F)

p$plot_est
#p$plot_var

text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")

ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)

print(text.p)
print(text.p)
ST = RE$ST
ST$curve = factor( ST$curve )
p_names = c("Air","Small Mammals","Vegetation","Cattle","Soil","Sheep","Surface water","Deep soil","Ground water")
pl <- lapply(1:10, function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = p_names[i]))


plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

results Experiment_GD_2

V = V[-1,]
K = -V
K[K<0]=0

o=c(1E3,6.5E7,5E4,2E9,1E4,5E4,1E9,5E8,5E2)/2

theta=c(8.6E-5,2.2E-11,0,8E-6,0.98,2.1E-5,7.3E-10,3E-4,2.2E-7,0.5,2E-5,1.1E-3,3E-5,1.5E-10,3.4E-7,1E-3,1.2E-2,0.6,4.3E-8,3.7E-8,2E-7,0.45,2E-3,2E-4,2E-8,2E-3,1E-3,2E-4,6.6E-10,2E-4,0,0.9889)
#knitr::kable(V ,  caption = "V")
#knitr::kable(K ,  caption = "K")
S = V+K
#knitr::kable(S ,  caption = "S")

thetha = rep(1,length(theta))

names_part = paste("$Q_",1:length(o),"$",sep="")
names_rates = paste("$r_{",1:length(theta),"}$",sep="")

knitr::kable(t(theta[1:10]) ,  caption = "Simulation rates",col.names = names_rates[1:10])
Simulation rates
\(r_{1}\) \(r_{2}\) \(r_{3}\) \(r_{4}\) \(r_{5}\) \(r_{6}\) \(r_{7}\) \(r_{8}\) \(r_{9}\) \(r_{10}\)
8.6e-05 0 0 8e-06 0.98 2.1e-05 0 3e-04 2e-07 0.5
knitr::kable(t(theta[11:20]) ,  caption = "Simulation rates",col.names = names_rates[11:20])
Simulation rates
\(r_{11}\) \(r_{12}\) \(r_{13}\) \(r_{14}\) \(r_{15}\) \(r_{16}\) \(r_{17}\) \(r_{18}\) \(r_{19}\) \(r_{20}\)
2e-05 0.0011 3e-05 0 3e-07 0.001 0.012 0.6 0 0
knitr::kable(t(theta[21:32]) ,  caption = "Simulation rates",col.names = names_rates[21:32])
Simulation rates
\(r_{21}\) \(r_{22}\) \(r_{23}\) \(r_{24}\) \(r_{25}\) \(r_{26}\) \(r_{27}\) \(r_{28}\) \(r_{29}\) \(r_{30}\) \(r_{31}\) \(r_{32}\)
2e-07 0.45 0.002 2e-04 0 0.002 0.001 2e-04 0 2e-04 0 0.9889
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(Q_1\) \(Q_2\) \(Q_3\) \(Q_4\) \(Q_5\) \(Q_6\) \(Q_7\) \(Q_8\) \(Q_9\)
500 32500000 25000 1e+09 5000 25000 5e+08 2.5e+08 250
a=proc.time()
RE = run_experiment1(theta,V,K,o,method = "")
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p$plot_est
p$plot_var

text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")

ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)

print(text.p)
print(text.p)
ST = RE$ST
ST$curve = factor( ST$curve )
p1=ggplot( ST, aes( time, V1, group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = "Air")

p3=ggplot( ST, aes( time, V3, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Vegetation")


p2=ggplot( ST, aes( time, V2, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Small Mammals")


p4=ggplot( ST, aes( time, V4, group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = "Cattle")

p5=ggplot( ST, aes( time, V5, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Soil")

p6=ggplot( ST, aes( time, V6, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Sheep")

p7=ggplot( ST, aes( time, V7, group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = "Deep soil")

p8=ggplot( ST, aes( time, V8, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Surface water")

p9=ggplot( ST, aes( time, V9, group = curve ) ) +geom_line(color="grey") + theme_bw()  + labs(y = "Man")

plot1 = ggarrange(p1,p2,p3,p4,p5,p6,p7,p8,p9,ncol=1,nrow=9,heights = 3)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))

plot_simO

results Experiment_GD_3

V = matrix(0,nrow=10,ncol=32)
  #air 
  V[1,31] = 1
  V[1,c(1,2,6,7,14,29,32)] = -1
  #small mammals
  V[2,c(2,3,4)] = 1
  V[2,5] = -1
  #vegetation
  V[3,c(6,11)] = 1
  V[3,c(4,8,12,13)] = -1
  # cattle 
  V[4,c(7,8,9,15)] = 1
  V[4,c(10,16)] = -1
  # soil 
  V[5,c(1,5,10,12,18)] = 1
  V[5,c(3,9,11,19,24,25,31)] = -1
  # sheep 
  V[6,c(13,14,19,20)] = 1
  V[6,c(17,18)] = -1
  # surface water
  V[7,25] = 1
  V[7,c(26,27)] = -1
  # deep soil
  V[8,24] = 1
  V[8,c(28,30)] = -1
  # ground water
  V[9,c(27,30)] = 1
  V[9,c(15,20,21,23)] = -1
  # man
  V[10,c(16,17,21,29)] = 1
  V[10,22] = -1
K = -V
K[K<0]=0

o=c(1E10,1E3,6.5E7,5E4,2E9,1E4,5E4,1E9,5E8,5E2)

theta=c(8.6E-5,2.2E-11,0,8E-6,0.98,2.1E-5,7.3E-10,3E-4,2.2E-7,0.5,2E-5,1.1E-3,3E-5,1.5E-10,3.4E-7,1E-3,1.2E-2,0.6,4.3E-8,3.7E-8,2E-7,0.45,2E-3,2E-4,2E-8,2E-3,1E-3,2E-4,6.6E-10,2E-4,0,0.9889)
#knitr::kable(V ,  caption = "V")
#knitr::kable(K ,  caption = "K")
S = V+K
#knitr::kable(S ,  caption = "S")

thetha = rep(1,length(theta))

names_part = paste("$Q_",1:length(o),"$",sep="")
names_rates = paste("$r_{",1:length(theta),"}$",sep="")

knitr::kable(t(theta[1:10]) ,  caption = "Simulation rates",col.names = names_rates[1:10])
Simulation rates
\(r_{1}\) \(r_{2}\) \(r_{3}\) \(r_{4}\) \(r_{5}\) \(r_{6}\) \(r_{7}\) \(r_{8}\) \(r_{9}\) \(r_{10}\)
8.6e-05 0 0 8e-06 0.98 2.1e-05 0 3e-04 2e-07 0.5
knitr::kable(t(theta[11:20]) ,  caption = "Simulation rates",col.names = names_rates[11:20])
Simulation rates
\(r_{11}\) \(r_{12}\) \(r_{13}\) \(r_{14}\) \(r_{15}\) \(r_{16}\) \(r_{17}\) \(r_{18}\) \(r_{19}\) \(r_{20}\)
2e-05 0.0011 3e-05 0 3e-07 0.001 0.012 0.6 0 0
knitr::kable(t(theta[21:32]) ,  caption = "Simulation rates",col.names = names_rates[21:32])
Simulation rates
\(r_{21}\) \(r_{22}\) \(r_{23}\) \(r_{24}\) \(r_{25}\) \(r_{26}\) \(r_{27}\) \(r_{28}\) \(r_{29}\) \(r_{30}\) \(r_{31}\) \(r_{32}\)
2e-07 0.45 0.002 2e-04 0 0.002 0.001 2e-04 0 2e-04 0 0.9889
knitr::kable(t(o) ,  caption = "Initial values",col.names = names_part)
Initial values
\(Q_1\) \(Q_2\) \(Q_3\) \(Q_4\) \(Q_5\) \(Q_6\) \(Q_7\) \(Q_8\) \(Q_9\) \(Q_10\)
1e+10 1000 6.5e+07 50000 2e+09 10000 50000 1e+09 5e+08 500
a=proc.time()
RE = run_experiment1(theta,V,K,o,method = "")
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
p$plot_est
p$plot_var

text <- paste("This experiment took ",a[3],"seconds to be performed")
text.p <- ggparagraph(text = text, face = "italic", size = 14, color = "black")

ggarrange(p$stable,p$stable.sd,nrow=1,ncol=2)

print(text.p)
print(text.p)
ST = RE$ST
ST$curve = factor( ST$curve )
p_names = c("Air","Small Mammals","Vegetation","Cattle","Soil","Sheep","Surface water","Deep soil","Ground water")
pl <- lapply(1:10, function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw() + labs(y = p_names[i]))


plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

Virus dynamics

\[\begin{aligned} \lambda^{i}(t): & S^{i} \longrightarrow E^{i} \\ \gamma_{E} p_{C}: & E^{i} \longrightarrow I_{C}^{i} \\ \gamma_{E}\left(1-p_{C}\right): & E^{i} \longrightarrow I_{A}^i \\ \gamma_{E} p_{C}: & E^{i} \longrightarrow I_{C}^i \\ \gamma_{A}: & I_{A}^{i} \longrightarrow R_{i} \\ \gamma_{C}\left(1-p_{H}^{i}\right): & I_{C}^{i} \longrightarrow R^{i}\\ \gamma_{C} p_{H}^{i} p_{G_{D}}^{i}: & I_{C}^{i} \longrightarrow G_{D}^{i}\\ \gamma_{G_{D}}: & G_{D}^{i} \longrightarrow \emptyset \\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) p^{*}(t) p_{ICU}^{i}(t): & I_{C}^{i} \longrightarrow I C U_{pre^*}^{i}\\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) p^{*}(t)( 1-p_{ICU}^{i}(t))p_{H_D}^i(t): & I_{C}^{i} \longrightarrow H_{D}^{i}\\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) p^{*}(t)( 1-p_{ICU}^{i}(t))(1-p_{H_D}^i(t)): & I_{C}^{i} \longrightarrow H_{R^*}^{i}\\ \gamma_{H_{D}}: & H_{D^*}^{i} \longrightarrow \emptyset \\ \gamma_{H_{R}}: & H_{R^*}^{i} \longrightarrow R^i \\ \gamma_{ICU} p_{ICU_D}^{i}(t): & ICU_{pre^*} \longrightarrow ICU_{D^*}^{i} \\ \gamma_{ICU}(1- p_{ICU_D}^{i}(t))(1-p_{W_D}^i(t)): & ICU_{pre^*} \longrightarrow ICU_{W_{R^*}}^{i} \\ \gamma_{ICU}(1- p_{ICU_D}^{i}(t))p_{W_{D}}^i(t): & ICU_{pre^*} \longrightarrow ICU_{W_{D^*}}^{i} \\ \gamma_{ICU_{R}}: & ICU_{W_{R^*}}^{i} \longrightarrow W_{R^*}^{i} \\ \gamma_{ICU_{D}}: & ICU_{W_{D^*}}^{i} \longrightarrow W_{D^*}^{i} \\ \gamma_{W_R}: & {W_{R^*}}^{i} \longrightarrow R^{i} \\ \gamma_{W_D}: & {W_{D^*}}^{i} \longrightarrow \emptyset \\ \gamma_{ICU_D}: & {ICU_{D^*}}^{i} \longrightarrow \emptyset \\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) (1-p^{*}(t)) p_{ICU}^{i}(t): & I_{ C }^{i} \longrightarrow I C U_{pre^*}^{i}\\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) (1-p^{*}(t))(t)( 1-p_{ICU}^{i}(t))p_{H_D}^i(t): & I_{C}^{i} \longrightarrow H_{D^*}^{i}\\ \gamma_{C} p_{H}^{i}\left(1-p_{G_{D}}^{i}\right) (1-p^{*}(t))(t)( 1-p_{ICU}^{i}(t))(1-p_{H_D}^i(t)): & I_{C}^{i} \longrightarrow H_{R^*}^{i}\\ \gamma_{H_{D}}: & H_{D}^{i} \longrightarrow \emptyset \\ \gamma_{H_{R}}: & H_{R}^{i} \longrightarrow R^i \\ \gamma_{ICU} p_{ICU_D}^{i}(t): & ICU_{pre} \longrightarrow ICU_{D}^{i} \\ \gamma_{ICU}(1- p_{ICU_D}^{i}(t))(1-p_{W_D}^i(t)): & ICU_{pre} \longrightarrow ICU_{W_R}^{i} \\ \gamma_{ICU}(1- p_{ICU_D}^{i}(t))p_{W_D}^i(t): & ICU_{pre} \longrightarrow ICU_{W_D}^{i} \\ \gamma_{ICU_{R}}: & ICU_{W_{R}}^{i} \longrightarrow W_{R}^{i} \\ \gamma_{ICU_{D}}: & ICU_{W_{D}}^{i} \longrightarrow W_{D}^{i} \\ \gamma_{W_R}: & {W_{R}}^{i} \longrightarrow R^{i} \\ \gamma_{W_D}: & {W_{D}}^{i} \longrightarrow \emptyset \\ \gamma_{ICU_D}: & {ICU_D}^{i} \longrightarrow \emptyset \\ \gamma_U : & ICU_{pre}^i \longrightarrow ICU_{pre^*}^i \\ \gamma_U : & H_{D}^i \longrightarrow H_{D^*}^i \\ \gamma_U : & H_{R}^i \longrightarrow H_{R^*}^i \\ \gamma_U : & ICU_{W_R}^i \longrightarrow ICU_{W_R^*}^i \\ \gamma_U : & ICU_{W_D}^i \longrightarrow ICU_{W_D^*}^i \\ \gamma_U : & ICU_{D}^i \longrightarrow ICU_{D^*}^i \\ \gamma_U : & W_{R}^i \longrightarrow W_{R^*}^i \\ \gamma_U : & W_{D}^i \longrightarrow W_{D^*}^i \\ \end{aligned}\]
K_inds = c(1,2,2,2,3,4,4,6,4,4,4,16,17,15,15,15,21,20,21,22,20,4,4,4,8,9,7,7,7,10,11,12,7,8,9,10,11,13,14)

K = matrix(0, ncol = 42,nrow = 22)
K[cbind(K_inds,1:length(K_inds))]=1

S_inds = c(2,4,3,4,5,5,6,0,15,8,9,0,5,20,18,19,21,22,5,0,0,15,16,17,0,5,12,10,11,13,14,5,0,0,15,16,17,18,19,20,21,22)

S = matrix(0, ncol = 42,nrow = 22)
S[cbind(S_inds,1:length(S_inds))]=1

V = S-K
o=rep(100,nrow(V))

theta=rep(1,ncol(V))
a=proc.time()
RE = run_experiment1(theta,V,K,o)
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
## Error in quadprog:::solve.QP(D, d, diag(rep(1, r + p)), rep(0, r + p)) : 
##   matrix D in quadratic function is not positive definite!
Pars = RE$Pars
In =  RE$In
Vars = RE$Vars
a = proc.time()-a
ST = RE$ST
ST$curve = factor( ST$curve )

pl <- lapply(1:10, function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw())


plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

#library(gridExtra)

#set.seed(123)
pl <- lapply(11:20, function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw())


plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO

#library(gridExtra)

#set.seed(123)
pl <- lapply(21:22, function(i) 
  ggplot( ST, aes( time, get(names(ST)[i+1]), group = curve ) ) +geom_line(color="grey") + theme_bw())


plot1 = ggarrange(plotlist = pl,ncol=1)
plot_simO = annotate_figure(plot1, top = text_grob("Simulations", 
               color = "red", face = "bold", size = 14))
plot_simO