Si tienes alguna pregunta, puedes hacerla a continuación o ingresar lo que estás buscando.
Estoy ejecutando la función uniroot en el bucle, pero me encontré con un error y el código se detuvo. El código es el siguiente: func <- function(f) -a*b/c*0.5*d*e^2 + (d/f-1)*g*sin(h*(pi/180))-i dat <- data.frame(a = c(0.99,0.99,0.99), b = c(0.1986572,0.1986572,0.1986572), c = c(237.5,237.5,237.5), d = c(1028.372, 1028.711, 1028.372), e = c(2.46261, 2.986461, . . . Read more
Estoy ejecutando la función uniroot en el bucle, pero me sale un error y el código se detiene. El código es el siguiente; func <- function(f) -a*b/c*0.5*d*e^2 + (d/f-1)*g*sin(h*(pi/180))-i dat <- data.frame(a = c(0.99,0.99,0.99), b = c(0.1986572,0.1986572,0.1986572), c = c(237.5,237.5,237.5), d = c(1028.372, 1028.711, 1028.372), e = c(2.46261, 2.986461, 2.46261), . . . Read more
R FX <- function(x)(3/4)*(1-x^2) M <- 5000 X2 <- rep(NA,M) for (i in 1:M) { U2 <- runif(1) fct <- function(x)FX(x)-U2 X2[i] <- uniroot(fct,c(-1,1))$root } He intentado hacer este código R, pero siempre obtengo un error que dice: Error en uniroot(fct, c(-1, 1)) : valores de f() en los extremos . . . Read more