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