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 (<
>>> mmend...@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 (<
> mmend...@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@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]]
___
R-help-es mailing list
R-help-es@r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es
