輸出.txt文件與兩個矢量

Question

尋找到輸出的每個ID唯一id和時間段的數量爲.txt文件的單個最大值。

現在我有：

#Store N and T_Max (ie. Maximum number of periods per individual) 
library(plyr) 
mydata$id <- as.numeric(as.factor(mydata$ncountry)) 
N_max <- max(mydata$id) 
mydata$count<-do.call(c, lapply(unique(mydata$id), function(curf){ 
seq(sum(mydata$id==curf)) 
})) 
T_max <- max(mydata$count) 
mydata$T_max <- rep(T_max,nrow(mydata)) # make new column 
mydata$N_max <- rep(N_max,nrow(mydata)) # make new column 
myvars1 <- c("T_max","N_max") 
unique(myvars1) 
newdata1 <- mydata[myvars1] 
write.table(newdata1, "NT_input.txt", col.names=FALSE, row.names=FALSE, sep=" ") 

其中給出.txt文件的以下樣式：

194 15 
194 15 
194 15 
194 15 
. 
. 
. 

我只想輸出的單排，即：

194 15 

任何意見表示讚賞。謝謝。

Answer 1

你沒有把獨特的數據，你可以試試這個
uniquedata = unique(myvars1) newdata1 <- mydata[uniquedata] ，現在你可以 write.table(newdata1, "NT_input.txt", col.names=FALSE, row.names=FALSE, sep=" ") 這應該工作