Displaying 1 result from an estimated 1 matches for "one_ind".
Did you mean:
one_int
2010 Jul 12
1
long to wide on larger data set
...le statement below
testData <- read.table(textConnection("rs9999853,cv0084,A,A
rs999986,cv0084,C,B
rs9999883,cv0084,E,F
rs9999853,cv0085,G,H
rs999986,cv0085,I,J
rs9999883,cv0085,K,L"),header=FALSE,sep=",")
closeAllConnections()
mysamples <- unique(testData$V2)
for (one_ind in mysamples) {
one_sample <- testData[testData$V2==one_ind,]
mywide <- reshape(one_sample, timevar = "V1", idvar =
"V2",direction = "wide")
# write.table(mywide,file
="newdata.txt",append=TRUE,row.names=FALSE,col.names=FALSE,quote=FALSE)
}