Nothing
centroidiam <-
function(ventana1){
centroides1<- NULL
diametros1 <- NULL
for( i in 1:length(ventana1$bdry)){
progressreport(i, length(ventana1$bdry))
pol <-owin(poly=ventana1$bdry[[i]])
centroides1 <- rbind(centroides1, unlist(centroid.owin(pol)))
diametros1<- c(diametros1, diameter(pol))
}
return(list(diams=diametros1, centroids=centroides1))
}
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.