ex<-GenerateExample(dimA=22, dimB=22, filling=.5, covariance=.6,
symmetric=TRUE, numOrths=10, correlated=seq(1,18))
pinitial<-InitialAlignment(psize=34, r=ex$r, mode="reciprocal")
lookupLink<-seq(-2,2,.5)
linkParams<-ComputeLinkParameters(ex$a, ex$b, pinitial, lookupLink)
Run the code above in your browser using DataLab