# Re: [R] simplification of code using stamp?

Date: Thu 26 Oct 2006 - 00:51:30 GMT

> I get the following, which is not what I am looking for.
>
> > test[1:10,]
> expert xx seeds run value
> 1 BW x0010 25 1 rsqs, slope, d.slope, intercept, d.intercept
> 2 BW x0010 25 2 rsqs, slope, d.slope, intercept, d.intercept
> 3 BW x0010 25 3 rsqs, slope, d.slope, intercept, d.intercept
> 4 BW x0010 25 4 rsqs, slope, d.slope, intercept, d.intercept
> 5 BW x0010 25 5 rsqs, slope, d.slope, intercept, d.intercept
> 6 BW x0010 28 1 rsqs, slope, d.slope, intercept, d.intercept
> 7 BW x0010 28 2 rsqs, slope, d.slope, intercept, d.intercept
> 8 BW x0010 28 3 rsqs, slope, d.slope, intercept, d.intercept
> 9 BW x0010 28 4 rsqs, slope, d.slope, intercept, d.intercept
> 10 BW x0010 28 5 rsqs, slope, d.slope, intercept, d.intercept

That's because stamp doesn't produce great output at the moment (have a look at the str(test) to see that you have a data frame containing a list of vectors)

The following code should put it a more reasonable form:

tidy <- function(x) {
bind <- function(i) data.frame(x[i, -ncol(x),drop=FALSE], t(a\$value[[i]]))   l <- lapply(1:nrow(x), bind)
do.call(rbind.fill, l)
}

tidy(test)

(but unless you provide a reproducible example I can't be sure that it works with your data)

Regards,