# NOT RUN {
fnl <- c( getANTsRData("r16"),
getANTsRData("r27"),
getANTsRData("r62"),
getANTsRData("r64"),
getANTsRData("r85") )
mm<-rapidlyInspectImageData( fnl )
if ( !usePkg("DMwR") | ! usePkg("fpc") )
{ print("Need DMwR and fpc packages") } else {
pamres <- fpc::pamk(mm,1:4)
outlier.scores <- DMwR::lofactor( mm, k=3 )
outliers <- order(outlier.scores)
}
# }
Run the code above in your browser using DataLab