Displaying 1 result from an estimated 1 matches for "rs999986".
Did you mean:
999986
2010 Jul 12
1
long to wide on larger data set
...a sample of two (rows in new data). I didn't receive an
error. I just stopped it because it was taking too long. Any
suggestions for improvements? Thanks.
# start example
# i have commented out the write.table 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 <- resh...