[R-es] Problema con un loop for

[Manuel Mendoza]

  Gracias Carlos, resuelto. Como dices, el problema era que dentro del loop
se suspendía la función print que partial trae por defecto, y lo único que
había que hacer es indicársela.

  predictores <- c("frg","omn","bc","co","pr","gg","fg","mf","br","hc")

  for(i in 1:length(predictores)){
    windows()
    print(partial(RFfit, pred.var = predictores[i], which.class = "Ard",
plot = T,
            prob = T, chull=T, type="classification",plot.engine =
"ggplot2", rug=T))
  }


El mié., 24 jun. 2020 a las 19:54, Manuel Mendoza (<
>>> mmendoza using fulbrightmail.org>) escribió:
>>>
>>>> Gracias Carlos.
>>>> Partial es del paquete pdp, que utiliza un objeto obtenido con el
>>>> paquete randomforest
>>>> Te copio un resumen del script que funciona todo menos el for final,
>>>> aunque sí su interior si le doy a i un valor como 1
>>>>
>>>> library(randomForest)
>>>> RFfit<- randomForest(ecsta ~ ., data=data)
>>>> predictores <- c("frg","omn","bc","co","pr","gg","fg","mf","br","hc")
>>>>
>>>>   for(i in 1:length(predictores)){
>>>>     windows()
>>>>     partial(RFfit, pred.var = predictores[i], which.class = "Ard", plot
>>>> = T,
>>>>             prob = T, chull=T, type="classification",plot.engine =
>>>> "ggplot2", rug=T)
>>>>   }
>>>>
>>>>
>>>>> El mié., 24 jun. 2020 a las 19:03, Manuel Mendoza (<
>>>>> mmendoza using fulbrightmail.org>) escribió:
>>>>>
>>>>>> Vuelvo al ataque, pues ya os lo pregunté.  Javier Rubén me dió una
>>>>>> posible
>>>>>> explicación, pero finalmente no me resolvió el problema. Así que lo
>>>>>> vuelvo
>>>>>> a intentar, a ver si hay más suerte.
>>>>>>
>>>>>> Si hago, p.e., i = 1 y corro las 2 filas de dentro del loop que pongo
>>>>>> abajo, me abre una ventana y me hace el
>>>>>> partial() de frg, es decir, lo hace bien, pero si corro todo el loop,
>>>>>> me
>>>>>> abre las 9 ventanas (de 9 predictores) pero las deja vacías.
>>>>>>
>>>>>> predictores <- c("frg","omn","bc","co","pr","gg","fg","mf","br","hc")
>>>>>>
>>>>>> for(i in 1:length(predictores)){
>>>>>>     windows()
>>>>>>     partial(RFfit, pred.var = predictores[i], which.class = "Ard",
>>>>>> plot = T,
>>>>>>     prob = T, chull=T, type="classification",plot.engine = "ggplot2",
>>>>>> rug=T)
>>>>>>   }
>>>>>>
>>>>>> Esto está, a su vez, dentro de otro loop con varias categorías, por
>>>>>> lo que
>>>>>> al final son 36 gráficos, que debo hacer con distintos parámetros,
>>>>>> por lo
>>>>>> que me sería muy útil solucionar el problema, que debe ser una
>>>>>> chorrada.
>>>>>>
>>>>>> Gracias por vuestra ayuda,
>>>>>> Manuel
>>>>>>
>>>>>>         [[alternative HTML version deleted]]
>>>>>>
>>>>>> _______________________________________________
>>>>>> R-help-es mailing list
>>>>>> R-help-es using r-project.org
>>>>>> https://stat.ethz.ch/mailman/listinfo/r-help-es
>>>>>>
>>>>>
>>>>>
>>>>> --
>>>>> Saludos,
>>>>> Carlos Ortega
>>>>> www.qualityexcellence.es
>>>>>
>>>>
>>>
>>> --
>>> Saludos,
>>> Carlos Ortega
>>> www.qualityexcellence.es
>>>
>>
>
> --
> Saludos,
> Carlos Ortega
> www.qualityexcellence.es
>

	[[alternative HTML version deleted]]