Я хочу установить общее ограничение для подмножества моих параметров:
c2 <- 2
nFeatures = 6
W2 <- rep(1,nFeatures)
w2 <- W2/sum(W2)
fguess2 <- 0.3
startParms2 <- c(c2,fguess2,w2)
names(startParms2) <- c("c2", "fguess",
"w21","w22","w23","w24","w25","w26")
xout2 <- optim(par=startParms2, fn=rmsd,
data1=mydata2, method = "L-BFGS-B",
lower = rep(0,8),
upper = c(Inf,1,1,1,1,1,1,1))
print(xout2)
В настоящее время все 6 параметров, принадлежащих вектору w2, ограничены отдельным максимумом 1. Что яхотел бы ограничить сумму этих 6 параметров 1 (в то время как оставшиеся 2 параметра сохраняют свои текущие ограничения).