File: Gwen.R

package info (click to toggle)
quadprog 1.5-3-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 228 kB
  • ctags: 118
  • sloc: fortran: 682; ansic: 46; makefile: 1
file content (7 lines) | stat: -rw-r--r-- 252 bytes parent folder | download | duplicates (6) 
1
2
3
4
5
6
7
 
## private communication from Gwen (gleday <gleday@few.vu.nl>) via Kurt Hornik
## produced an endless loop on some platforms.

library(quadprog)
load("bug.RData")
sol <- solve.QP(Dmat, as.vector(dvec), Amat, bvec, meq=meq)
print(lapply(sol, zapsmall))