R project

Diagrama de dispersão:

xxxxxxxxxx

 

1

dados=data.frame(

2

   x = c(36,22,25,34,26,25,23,42,25,40,35,40),

3

   y = c(54,43,47,59,54,44,46,61,51,67,64,57)

4

)

5

​

6

plot(dados, pch=20) # diagrama de dispersão

Correr o código em R

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages

Coeficientes de correlação de Pearson e testes de hipóteses:

xxxxxxxxxx

 

1

dados=data.frame(

2

   x = c(36,22,25,34,26,25,23,42,25,40,35,40),

3

   y = c(54,43,47,59,54,44,46,61,51,67,64,57)

4

)

5

​

6

cor.test(dados$x, dados$y, method = c("pearson"), conf.level = 0.95)

Correr o código em R

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages

Coeficientes de correlação de Spearman e testes de hipóteses:

xxxxxxxxxx

 

1

dados=data.frame(

2

   x = c(36,22,25,34,26,25,23,42,25,40,35,40),

3

   y = c(54,43,47,59,54,44,46,61,51,67,64,57)

4

)

5

​

6

cor.test(dados$x, dados$y, method = c("spearman"),conf.level = 0.95)

Correr o código em R

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages

Para obter apenas o valor do coef. de Pearson ou de Spearman usa-se a versão simples copiando o comando acima:

cor(dados$Dureza,dados$N_plecoptera, method = c("pearson"))
cor(dados$Dureza,dados$N_plecoptera, method = c("spearman"))