duplicated(df[c('Season','Month')]),1:2]),
as.matrix(df[!...duplicated(df[c('Month','Week')]),2:3])))
colnames(edges)<-c('from','to')
vertices0duplicated(df[c('Season','Month')]),1:2]),
as.matrix(df[!...duplicated(df[c('Season','Season')]),c(1,1)]),
as.matrix(df[!...duplicated(df[c('Season','Month')]),c(1,2)]),
as.matrix(df[!