Displaying 1 result from an estimated 1 matches for "tpdata".
Did you mean:
pdata
2005 Jun 23
1
Stop Warnings for Invalid Factor Level, NAs generated?
...k=0
> for(j in nlabs){
+ for(i in ifpair:ilpair){
+ k <- k + 1 #Counter for number of pairs. Start at 1.
+ setwd(dirs[i]); load("labdata.Rdata") #No trailing "/" in wd
+ setwd(cdir) #Go back to original ESN pair (last pair's folder in
analysis)
+ tpdata <- labdata[which(labdata[["LABNUMBER"]] == j),]
+ if(NROW(tpdata) == 0){
+ tpdata <- dpdata
+ tpdata[which(names(labdata) == "LABNUMBER")] <- j
+ tpdata[which(names(labdata) == "ESN")] <-
ESN-((ilpair-ifpair)+1-k)*2
+ tpdat...