if (FALSE) {
embed_methods <- dimRedMethodList()
quality_methods <- dimRedQualityList()
scurve <- loadDataSet("Iris")
quality_results <- matrix(NA, length(embed_methods), length(quality_methods),
dimnames = list(embed_methods, quality_methods))
embedded_data <- list()
for (e in embed_methods) {
message("embedding: ", e)
embedded_data[[e]] <- embed(scurve, e, .mute = c("message", "output"))
for (q in quality_methods) {
message(" quality: ", q)
quality_results[e, q] <- tryCatch(
quality(embedded_data[[e]], q),
error = function (e) NA
)
}
}
print(quality_results)
}
Run the code above in your browser using DataLab