Nothing
######################### parpdist() ############################0
# finds distances between all possible pairs of rows
# in the matrix x and rows in the matrix y, as with
# pdist() but in parallel
# arguments:
# x: data matrix
# y: data matrix
# cls: cluster
# value:
# full distance matrix, as pdist object
parpdist <- function(x,y,cls) {
nx <- nrow(x)
ichunks <- formrowchunks(cls,x,'tmpx') # write to global at worker
clusterExport(cls,'y',envir=environment())
dists <- clusterEvalQ(cls,pdist(tmpx,y)@dist)
tmp <- Reduce(c,dists)
new("pdist", dist = tmp, n = nrow(x), p = nrow(y))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.