<div dir="ltr">Hola a todos,<div><br></div><div>Estoy trabajando con un modelo de predicción de para ajustar la curva de retención de agua (theta ~ WRC) de acuerdo con la Ec. de van Genutchen </div><div><br></div><div>fitted <- nls(theta ~ qr + (qs-qr)/(1+(alpha*h)^n)^(1-1/n), start=list(qs=0.64, qr=0.30, alpha =.37, n=2.83))<br><br>Después de correr el código, los datos ajustados (theta) se ven bastante bien para un cierta sección de la curva (entre 0,178 y 2,87 pF),  pero con estos mismos ahora necesito generar una ecuación polinómica que me permita calcular (theta) para otros valores de la curva, entre 0 y 4,27 pF (h ~ pF). </div><div><br></div><div>Estoy aplicando machine learning, realizando la partición correspondiente para datos  evaluados y testados. </div><div><br></div><div>training.muestra <-  datos1$predichos  %>%<br>  createDataPartition(p=0.8, list = FALSE)<br>train.data <- datos1 [training.muestra, ]<br>test.data <- datos1 [-training.muestra, ]<br><br>He generado el modelo 3 (datos1.csv) para una ecuación polinómica de grado 3:</div><div><br></div><div>modelo3 <- lm(predichos  ~ poly(h,3),data = train.data)<br>summary(modelo3)$coef<br>predicciones3 <- modelo3 %>% predict(test.data)<br>predicciones3<br><div><br></div><div>Los resultados se muestran:</div><div><br></div><div>               Estimate   Std. Error    t value      Pr(>|t|)<br>(Intercept)  0.53733575 0.0004243755 1266.17982 2.609800e-156<br>poly(h, 3)1 -0.58854606 0.0036752001 -160.13987  1.358153e-92<br>poly(h, 3)2 -0.13918929 0.0036752001  -37.87258  7.919609e-49<br>poly(h, 3)3  0.06016205 0.0036752001   16.36973  8.380817e-26<br></div><div><br></div><div>Con estos datos. género la ecuación correspondiente, pero al hacer el cálculo para otros valores de la curva en excel, el gráfico no se muestra igual como en r. </div><div><br></div><div>Será que estoy haciendo algo mal, alguien me puede dar luces al respecto.  En el adjunto les dejo los valores con los que estoy trabajando.</div><div><br></div><div>Saludos cordiales,</div><div><br></div><div>Stalin </div><div><br></div><div><br></div>-- <br><div dir="ltr" class="gmail_signature" data-smartmail="gmail_signature"><div dir="ltr"><div><font size="2" color="#20124d"><i><span style="font-family:tahoma,sans-serif">Stalin Granda A.</span><br style="font-family:tahoma,sans-serif"><span style="font-family:tahoma,sans-serif">Magíster en Ingeniería Mc. Recursos Hídricos</span><br style="font-family:tahoma,sans-serif"><font face="tahoma, sans-serif">UACh</font><br></i></font><br><div style="display:none!important;height:auto!important;width:auto;border:1px solid rgb(0,67,179)!important;vertical-align:middle!important;padding:1px!important;margin:0px!important;color:rgb(0,0,0)!important;background-color:rgb(168,236,255)!important;font-family:Arial!important;font-size:12px!important;line-height:normal!important;font-weight:normal!important"></div></div></div></div></div></div>