r - Quadprog 违反约束

Question

您好，我正在尝试使用 R 中的 Quadprog 包解决二次约束优化问题。但是，非负约束正在被违反

 library(quadprog)
options(scipen=999)
A=c(0,0,0,0)
Amat=cbind(diag(1, length(A)), rep(1, length(A)), rep(-1, length(A)))

bvec=c(rep(0, length(A)), 1, -1)

Dmat=matrix(c(2.00044131893129, 2.00049178814425,   2.00041839697958,   2.00030559324023,   2.00049178814425,   2.00064972136399,   2.00053994496836,   2.00037532914833,   2.00041839697958,   2.00053994496836,   2.00049628996226,   2.00032367551724,   2.00030559324023,   2.00037532914833,   2.00032367551724,   2.00031018936379)
,nrow=4,byrow=TRUE)
Dvec=c(2.00014726495946,    2.0002164445682,    2.00016868307137,   2.00014845293229)
Opt_quad=solve.QP(Dmat,Dvec,Amat,bvec)

然而，输出是负面的