#melt function

library(reshape2)
mydata<- data.frame(cbind(1:3, rnorm(3), runif(3)))
mydata
mdata <- melt(mydata, id=c("X1"))
mdata