setwd("C:\Users\victo\Documents\Engineering\books\DEVS\HomNet\HomNet\Results")
setwd("C:/Users/victo/Documents/Engineering/books/DEVS/HomNet/HomNet/Results")
mydata1 = read.table("resultCount_50UEs7MeNBVel30HomNet.txt")
HO1<-c(mydata1$V2[1:length(mydata1$V2)])
UE1 = table(HO1)
write.csv(UE1, file = "50UEs10minsPROP.csv")
mydata2 = read.table("resultCount_100UEs7MeNBVel30HomNet.txt")
HO2<-c(mydata2$V2[1:length(mydata2$V2)])
UE1 = table(HO1)
write.csv(UE2, file = "resultCount_100UEs7MeNBVel30HomNet.csv")
UE2 = table(HO2)
write.csv(UE2, file = "resultCount_100UEs7MeNBVel30HomNet.csv")
