我正在考慮 Nelder Mead 優化技術,我需要回傳第一列中具有最小值的矩陣。
我的代碼:
fun <- function(x){
3*(sin(0.5 0.25*x[2]*x[1]))*cos(x[1])
}
out <- matrix(NA, nrow=100, ncol=3)
for (i in 1:100) {
x <- runif(1, -7, 7)
y <- runif(1, -7, 7)
x0 <- c(x,y)
res <- optim(x0,fun,method="Nelder-Mead")
out[i,] <- round(c(res$value,res$par) , digits = 5)
}
out
uj5u.com熱心網友回復:
創建一個具有min第一列的邏輯向量并對矩陣進行子集
out1 <- out[out[,1] == min(out[,1]),]
轉載請註明出處,本文鏈接:https://www.uj5u.com/yidong/368523.html
