yannabraham

library(stringr)

screwed <- readLines(con='http://www.uniprot.org/docs/cdlist.txt')
screwed <- screwed[76:521]

parser <- c(0,8,21,29,37,55,1000000L) # use fixed length parsing

screwed <- lapply(screwed,function(scr) {
        sapply(seq(length(parser)-1),function(i) str_trim(substr(scr,parser[i]+1,parser[i+1])))
    }

yannabraham

data(warpbreaks)

my.summary <- function(vals) {
	return(c(avg=mean(vals),sd=sd(vals)))
}

sum.warpbreaks <- with(warpbreaks,tapply(breaks,list(tension,wool),my.summary))

sum.warpbreaks <- array(unlist(sum.warpbreaks),
	dim=c(length(sum.warpbreaks[1,1][[1]]),dim(sum.warpbreaks)),