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

任何建议表示赞赏。谢谢。

Answer 1

你没有把独特的数据，你可以试试这个 uniquedata = unique(myvars1) newdata1 <- mydata[uniquedata] 现在你可以 write.table(newdata1, "NT_input.txt", col.names=FALSE, row.names=FALSE, sep=" ") 这应该工作

输出.txt文件，单个最大值为两个向量

1 个答案: