Solve system of non-linear equations
问题 I am trying to solve the following system of four equations. I have tried using the "rootSolve" package but it does not seem like I can find a solution this way. The code I am using is the following: model <- function(x) { F1 <- sqrt(x[1]^2 + x[3]^2) -1 F2 <- sqrt(x[2]^2 + x[4]^2) -1 F3 <- x[1]*x[2] + x[3]*x[4] F4 <- -0.58*x[2] - 0.19*x[3] c(F1 = F1, F2 = F2, F3 = F3, F4 = F4) } (ss <- multiroot(f = model, start = c(0,0,0,0))) But it gives me the following error: Warning messages: 1: In stode