Displaying 1 result from an estimated 1 matches for "dfobj".
Did you mean:
fobj
2010 May 26
0
substitution in a function
I have the following function defined as below
match.trace <- function(dfobj, distance, day1, day2) {
day1 <- substitute(dfobj$day1); day1
day2 <- substitute(dfobj$day2)
distance <- substitute(dfobj$distance)
xx <- NULL
for (i in 0:10) xx[i+1] <- with(dfobj,
cor(Lag((day1-day1[1]),i), (day2-day2[1]), use='pair'))
i <- match(max(xx),...