Nothing
CorDdPlot = function(x, d, ncode) {
data = COR_DeltaDd(x, d, ncode,nrepet=999)
# requireNamespace("ggplot2")
a= plot(data$Dgeo, data$PairwiseDeltaD, xlab = "Geographic Distance", ylab = "Genetic differentiation (DeltaD)")
abline(lm(data$PairwiseDeltaD ~ data$Dgeo))
lm = lm(data$PairwiseDeltaD ~ data$Dgeo)
return(summary(lm))
}
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.