User talk:Edratzer

From Wikipedia, the free encyclopedia

Contents 1 Encyclopodia 2 Error detection and correction 3 MRAO plaque 4 Bagging

[edit] Encyclopodia

Encyclopodia was moved to Wikipedia:Encyclopodia per Wikipedia:Articles_for_deletion/Encyclopodia. ---J.S ^(T/C) 22:21, 27 December 2006 (UTC)

I think there is a way to do a "soft" redirect into wikipedia space. I'll look into it. ---J.S ^(T/C) 15:09, 28 December 2006 (UTC)

[edit] Error detection and correction

I replied belatedly on my talk page. My main concern is that there's no clear category for articles that deal with general error detection and correction technology, some of which uses very little of the coding theory or algorithms. linas 03:34, 23 January 2007 (UTC)

[edit] MRAO plaque

er, what makes this a _foundation_ plaque, and where on the site did it used to be - I think the name plate for the old Lord's Bridge station (plus a couple of its attendant oil lamps) might be as interesting :-) Bob aka Linuxlad 16:52, 18 August 2007 (UTC)

• Happy for you to come up with a better name - it's a Wiki after all! I can't really think what to call that type of thing. I was told it was the plaque unveiled at the opening. It's on the Mullard building. Edratzer 12:08, 19 August 2007 (UTC)

[edit] Bagging

Hello. I haven't been here for a while and only just got your message. I'm not sure that I understand what you mean. It think the problem is that the choice of loess was a bad one. If I had used a spline, it would happily extrapolate beyond the data it is fit too, but loess won't. As a result, each loess line only goes up to the limits of the bootstrap sample it was fit to. In any event, my R code is below. The airquality data comes as part of a standard R installation. I hope this helps. Maybe I'll redo it using a spline. Feel free to improve the article as you see fit. Tolstoy

afun <- function(B, x){

   xp <- seq(min(x$ozone, na.rm=T), max(x$ozone, na.rm=T), len=200)
   x <- x[sample(1:dim(x)1,replace=TRUE),]
   x <- loess(x$temp ~ x$ozone, span=.5)
   predict(x,xp)

} B <- 100 res <- sapply(1:B, afun, x=airquality)

x <- seq(min(airquality$ozone, na.rm=T), max(airquality$ozone, na.rm=T), len=200) plot(airquality[,c("ozone", "temp")], xlab="Ozone", ylab="Temperature", col="blue") for (i in 1:10) lines(x, res[,i], col="gray", lwd=1) lines(x, apply(res, 1, mean, na.rm=T), lwd=2, col="red") —The preceding unsigned comment was added by Tolstoy the Little Black Cat (talk • contribs) 16:55:34, August 19, 2007 (UTC).