标签：
findud<-function(v){
vud<-v[-1]-v[-length(v)]
return(ifelse(vud>0,1,-1))
}
udcorr <-function(x,y) {
ud<-lapply(list(x,y),findud)
return(mean(ud[[1]] == ud[[2]]))
}
diff(u) #差分
sign(diff(u))#将差分转换为-1到1的形式
标签：
原文地址：http://www.cnblogs.com/xiongchang18/p/4481169.html
