Snapshot_ID_Tag<-NULL
CreateIDtag<- function(A,B){
for (i in A:B)
{
ID<-append(Snapshot_ID_Tag,c(paste("AT0",i,)),after=length(Snapshot_ID_Tag))
}}
Snapshot_ID_Tag<-NULL
CreateIDtag<- function(A,Snapshot_ID_Tag<-NULL
CreateIDtag<- function(A,B){
for (i in A:B)
{
ID<-append(Snapshot_ID_Tag,c(paste("AT0",i,)),after=length(Snapshot_ID_Tag))
}}
Snapshot_ID_Tag<-NULL
CreateIDtag<- function(A,