bev <- Infocom06_sample$User1[j]

bevs <- Infocom06_sample$User2[j]

if(bevs1 == bevs)

{count = count +1}else break

bevs1 <- bevs

bev1 <-bev

if (Infocom06_sample$TimeDiff[k] == "No")

  {CountZeroConnections = CountZeroConnections + 1}

if (Infocom06_sample$TimeDiff [l]== "Yes")

  {CountUndefinedTime = CountUndefinedTime + 1}