Pedido de Script da atividade proposta - modulo 7 durante o vídeo 7.7

Bom tarde,

Gostaria do script da atividades proposta - modulo 7 durante o vídeo 7.7 (aos 5:00) para comparar ao que fiz.
Atividade proposta sugerida foi para fazer análise de auto correlação espacial com os dados do R (
DoubsSpe.csv
DoubsEnv.csv
DoubsSpa.csv
Alguém poderia enviar por gentileza.

Obrigada

Valeria

Oi Valeria, aquí eu colo o script

##Mapas simples no R
##Curso do R para Bio da Conservação
##IPÊ e Bocaina
##Prof Marcos Vital

############################################
##Lendo os dados:

setwd("C:/R/Curso do R/Modulo 7/Um mapa simples")

dir()

dados<-read.csv("DoubsSpe.csv", row.names=1)
dados.env<-read.csv("DoubsEnv.csv", row.names=1)
dados.xy<-read.csv("DoubsSpa.csv", row.names=1)

attach(dados)
attach(dados.env)
attach(dados.xy)

summary(dados)
summary(dados.env)
summary(dados.xy)

##############################################
library(vegan)

plot(x, y, type= "l", col="blue")
text(x, y, row.names(dados))

riqueza<-specnumber(dados)


plot(x, y, cex=riqueza/4, pch=16, col="pink")
lines(x, y, col="blue")
text(x, y, row.names(dados))

Muito Obrigada Edwin Hernández Pérez