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("x", "y")
# Do SAL
holdfun <- FeatureFunPrep(identfun="salIDfun", analysisfun="saller")
look <- FeatureSuite( hold, holdfun)
summary(look)
data(geom000)
data(geom002)
hold <- FeatureSuitePrep("geom000", "geom002")
holdfun <- FeatureFunPrep(identfun="salIDfun", identfun.args=list(thresh=0.1), analysisfun="saller")
look <- FeatureSuite(hold, holdfun)
summary(look)
## Try to make a good example!!
data(UKfcst6)
data(UKobs6)
hold <- FeatureSuitePrep("UKobs6", "UKfcst6")
holdfun <- FeatureFunPrep(identfun="convthresh", identfun.args=list(smoothpar=1.5, thresh=1),
matchfun="centmatch", analysisfun="FeatureMatchAnalyzer")
look <- FeatureSuite(hold, holdfun, verbose=TRUE)
summary(look)
# use the pdf function to print the following plots to a file (in order to see all of them).
plot(look)
Run the code above in your browser using DataLab