Displaying 1 result from an estimated 1 matches for "dayoff".
Did you mean:
payoff
2004 Aug 06
3
Simple Lookup... why so slow
...Windows, latest R-Version)
----
# Generate Data set
StartDay = matrix(as.integer(runif(80)*20),nrow=4)
n=4000
PatDay = data.frame(Day = as.integer(runif(n)*20)+50,
Pat= as.integer(runif(n)*20)+1,
Treat = as.integer(runif(n)*4)+1,
DayOff=NA) # reserve output space
# Correct for days offset
ti= system.time(
for (i in 1:n)
PatDay$DayOff[i] = PatDay$Day[i]-StartDay[PatDay$Treat[i],PatDay$Pat[i]]
)
cat("$Style index",n,ti[3],"\n");
# n= 2000 3 seconds
# n= 4000 15 seconds
# I first believed using numeric in...