############################################################### # # # Author: Toni Giorgino # # Laboratory for Biomedical Informatics # # University of Pavia - Italy # # www.labmedinfo.org # # # # $Id: stepPattern.R 146 2008-06-10 15:01:26Z tonig $ # # ############################################################### ############################# ## Step pattern for MVM (minimum variance matching) ## mvmStepPattern <- function(elasticity=20) { size <- elasticity; pn <- rep(1:size,each=2); # 112233... dx <- rep(c(1,0),size); # 101010 dy <- dx * ( (1:(2*size)) +1)/2; # 102030 w <- rep(c(-1,1),size); tmp <- cbind(pn,dx,dy,w); # tmp <- as.vector(t(tmp)); sp <- stepPattern(tmp); attr(sp,"norm") <- "N"; attr(sp,"call") <- match.call(); return(sp); }