bug in undirected, degree-corrected case? sbm and sbmt estimates don't gree

[jcarlen]

bug in undirected, degree-corrected case? sbm and sbmt estimates disagree when using degreeCorrect = 2 for sbmt, but this should be the same as degreeCorrect = 1 when there is only one time slice in the network.

  library(sbmt)
  data("la_byhour_edgelist") 

  tmp.sbmt = sbmt(edgelist.time = list(la_byhour_edgelist[[18]]), maxComms = 3, 
                                degreeCorrect = 1, 
                                directed = F, klPerNetwork = 10, tolerance = 1e-4, seed = 1, seedComms = NULL)
  
  tmp.sbm = sbm(edgelist = la_byhour_edgelist[[18]], maxComms = 3, 
                               degreeCorrect = 1, 
                               directed = F,  klPerNetwork = 10, tolerance = 1e-4, seed = 1, seedComms = NULL)
  
  identical(tmp.sbm$EdgeMatrix, tmp.sbmt$EdgeMatrix[[1]]) #OK
  identical(tmp.sbm$FoundComms, tmp.sbmt$FoundComms) #OK
  
  tmp.sbmt = sbmt(edgelist.time = list(la_byhour_edgelist[[18]]), maxComms = 3, 
                                degreeCorrect = 2, 
                                directed = F, klPerNetwork = 10, tolerance = 1e-4, seed = 1, seedComms = NULL)

 identical(tmp.sbm$EdgeMatrix, tmp.sbmt$EdgeMatrix[[1]]) #FALSE
 identical(tmp.sbm$FoundComms, tmp.sbmt$FoundComms) #FALSE