Skip to content

[R-es] L=?US-ASCII?Q?=ED?=neas super smooth sin picos

3 messages · guivivi en alumni.uv.es, Olivier Nuñez, Dr. Pablo E. Verde

#
Hola a todos,

Quiero dibujar una línea supersmooth en un gráfico pero que sea una 
línea cuanto más suave mejor, es decir, que no tenga picos.
El parámetro bass de la función supsmu() dice que para valores mayores 
de 10 provoca más suavidad,pero pongo bass=1000 y no veo cambio 
aparente que si pongo bass= 0.
¿Alguien conoce la manera de dibujar líneas más suaves (quitando los 
picos)?.

Mucjas gracias
#
Si quieres observar cambios notables en la predicción de tu curva,  
deja el bass en su valor por defecto
y prueba distintos valores del span (rango entre 0 y 1) que  
corresponde a la proporción de datos involucrada en cada predicción.
Cuanto más próximo al 1 (el 100% de los datos) es está proporción,  
menos errática será tu curva (predicción más robusta)

Un saludo. Olivier



--  
____________________________________

Olivier G. Nuñez
Email: onunez en iberstat.es
Tel : +34 663 03 69 09
Web: http://www.iberstat.es

____________________________________




El 06/11/2009, a las 11:06, <guivivi en alumni.uv.es>  
<guivivi en alumni.uv.es> escribió:
#
En tu pregunta no esta claro el contexto de aplicación. Esto en
general es muy importante.  Parece que el tema de suavizar los
picos es mas que nada algo de cosmetica. Para esto, Oliver te
ha dado una buena respuesta operativa.

Pero, la función "supsmu()" eligue el ancho de la venta de suavizado
de modo de mantener un balance entre el sesgo y la variabilidad
en el suavizado. Si utilizas otros values, podes tener resultados
ridiculos. Te mando un ejemplo que arme sobre el tema.

# Ejemplo ...
library(MASS)
data(GAGurine)
attach(GAGurine)

set.seed(123)
x <- c(runif(20, 5, 8), runif(20, 10, 13))
y <- rnorm(40, mean=50)
dat <- cbind(Age, GAG)
dat <- rbind(dat, cbind(x,y))
dat <- data.frame(dat)

plot(dat)
lines(supsmu(dat$Age, dat$GAG), lwd=3) # original
lines(supsmu(dat$Age, dat$GAG, span= .1), col="red", lwd=3)
lines(supsmu(dat$Age, dat$GAG, span= .95), col="blue", lwd=3)
# fin

Saludos,

Pablo



----- Original Message -----
From: <guivivi en alumni.uv.es>
To: <r-help-es en r-project.org>
Sent: Friday, November 06, 2009 11:06 AM
Subject: [R-es] Lmneas super smooth sin picos


Hola a todos,

Quiero dibujar una línea supersmooth en un gráfico pero que sea una
línea cuanto más suave mejor, es decir, que no tenga picos.
El parámetro bass de la función supsmu() dice que para valores mayores
de 10 provoca más suavidad,pero pongo bass=1000 y no veo cambio
aparente que si pongo bass= 0.
¿Alguien conoce la manera de dibujar líneas más suaves (quitando los
picos)?.

Mucjas gracias

_______________________________________________
R-help-es mailing list
R-help-es en r-project.org
https://stat.ethz.ch/mailman/listinfo/r-help-es