#Allows us to write diffusion coefficients from movement-based home range output to a more useable form

dafr <- do.call(rbind.data.frame, vv)
write.table(dafr, "DiffCoeff2.txt", sep="\t", append=TRUE, col.names=F)