examen grupal de estadistiiiicaaaaa

General
1

primero descarguwen corrplot, en packages y despues en install

2

Aqui ponemos lo que debemos hacer chikos, por favor xd

3

con que base de datos?

4

ya ven para que dice que r c

1 Like
5

Cuando alguien me amaba, me sentia tan feliz, lo momentos q pasamos los recuerdo bieeeen

1 Like
6

creo que su plan es despues leer estos mensajes asi que se podria decir que tenemos cocas en el refri

7

les dejó subir los archivos? a mi no más no me lee las bases de datos

8

a mi tampoco a quien si?

1 Like
9

Entonces solo es con la base de banco de semillas?

1 Like
10

si, creo que siiiiiiiii ocupamos corrplt y hmisn??

1 Like
11

Naszarkowski_seedbank_data.csv<- principalmente esta

Naszarkowski_seedbank_data
library(corrplot)
library(Hmisc)

bs<-read.csv("Naszarkowski_seedbank_data.csv")
summary(bs)
bansem<- bs[, c (1:2, 4:11, 14:17)]
pca<-prcomp(bansem, center=TRUE, scale.=TRUE)
summary(pca)

LO ACABO DE EDITAR CHIKESEEES

3 Likes
12

library(corrplot)
library(Hmisc)

bs<-read.csv("Naszarkowski_seedbank_data.csv")
summary(bs)
bansem<- bs[, c (1:2, 4:11, 14:17)]
pca<-prcomp(bansem, center=TRUE, scale.=TRUE)
summary(pca)

eig <- pca$sdev^2
var_exp <- eig/sum(eig)
var_exp
cumsum(var_exp)

plot(pca, type="l")

plot(var_exp, type="b",
xlab = "Componente principal",
ylab = "Proporcion de varianza explicada")

mat_cor <- cor(bansem, use = "complete.obs", method = "pearson")
mat_cor

corrplot (mat_cor, method= "circle")
corrplot (mat_cor, method= "number")
corrplot (mat_cor, method= "color",
type="upper", addCoef.col="black")

var_exp <- (pca$sdev^2) / sum(pca$sdev^2)

plot(pca$x[,1], pca$x[,2],
xlab = paste0("PC1 (", round(var_exp[1] * 100, 1), "%)"),
ylab = paste0("PC2 (", round(var_exp[2] * 100, 1), "%)"),
pch = 16,
cex = 0.5) # puntos más pequeños

arrows(0, 0,
pca$rotation[,1] * 5,

   pca$rotation[,2] * 5,
   length = 0.12,
   col = "red",
   lwd = 2.5)  #la función lwd cambia el grosor de la línea

text(pca$rotation[,1] * 5,
pca$rotation[,2] * 5,
labels = rownames(pca$rotation),
col = "red",
pos = 3,
cex = 0.9)

1 Like
13

Chicos, si lo hice bien? jajaj tengo muchas dudas sobre mi capacidad cerebral jajaj

2 Likes
14

cuál es el q hiciste?

1 Like
15

ya no supeee, creo que si lo hice mal, pero no se como quitar lo de la matriz

1 Like
16

los kiero amigoooosssssssssssssss

1 Like