library("pRolocdata")
data(dunkley2006)
## Default parameters for a set of methods
## (in the interest of time, don't use t-SNE)
m <- c("PCA", "MDS", "kpca")
vis <- SpatProtVis(dunkley2006, methods = m)
vis
plot(vis)
plot(vis, legend = "topleft")
## Setting method arguments
margs <- c(list(kpar = list(sigma = 0.1)),
list(kpar = list(sigma = 1.0)),
list(kpar = list(sigma = 10)),
list(kpar = list(sigma = 100)))
vis <- SpatProtVis(dunkley2006,
methods = rep("kpca", 4),
methargs = margs)
par(mfrow = c(2, 2))
plot(vis)
## Multiple PCA plots but different PCs
dims <- list(c(1, 2), c(3, 4))
vis <- SpatProtVis(dunkley2006, methods = c("PCA", "PCA"), dims = dims)
plot(vis)Run the code above in your browser using DataLab