x <- y <- matrix(0, 10, 12)
x[2:3,c(3:6, 8:10)] <- 1
y[c(4:7, 9:10),c(7:9, 11:12)] <- 1
hold <- FeatureSuitePrep("y", "x")
# Do SAL
holdfun <- FeatureFunPrep(identfun="salIDfun", analysisfun="saller")
look <- FeatureSuite( hold, holdfun)
data(geom000)
data(geom002)
hold <- FeatureSuitePrep("geom002", "geom000")
holdfun <- FeatureFunPrep(identfun="salIDfun", identfun.args=list(thresh=0.1), analysisfun="saller")
look <- FeatureSuite(hold, holdfun)
## Try to make a good example!!
hold <- FeatureSuitePrep("pert004", "pert000")
holdfun <- FeatureFunPrep(identfun="convthresh", identfun.args=list(smoothpar=5.5, thresh=0.01), analysisfun="FeatureMatchAnalyzer")
look <- FeatureSuite(hold, holdfun)
Run the code above in your browser using DataLab