Displaying 1 result from an estimated 1 matches for "concurrentusage".
2013 Sep 27
2
Locating inefficient code
....3:8209 ESTABLISHED
tcp 0 0 172.20.100.2:60247
172.20.100.3:8209 ESTABLISHED
Here I am just splitting at colons and getting IP's and ports. That is
all. Can this code improved ?
data <- read.table("D:\\Log
Analysis\\26-9-2013\\concurrentusage-node1",sep="",header=T,stringsAsFactors=FALSE,
fill=TRUE)
var <- c("Foreign.Address")
data[,var] <- sapply(data[,var],function(x)
ifelse(length(unlist(str_split(x,":")))==5,unlist(str_split(x,":"))[4],unlist(str_split(x,":"))[1]))
var &...