pdf('test',onefile=T)
    g <- ggplot(test,aes(x=timepoints,y= mean,ymax = mean + sde, ymin = mean  - sde,colour=Experiment)) +
       geom_errorbar(width=2) +
       geom_point() +
       geom_line() +
       xlab('Time (min)') +
       ylab('Fold Induction') +
       opts(title = '5 min v 6 hr KCl treatment')
    print(g)
dev.off()

g + scale_colour_manual(values = c("red", "black"))