Altura y ancho de árboles Cherry

setwd(“C:/Users/Cristian Castellanos/Desktop”) getwd()

r{} tree force(plot.tree.secuence) setwd(“C:/Users/Cristian Castellanos/Desktop”)

library(“tseries”) library(help=“tseries”) data(ice.river) R>data(ice.river) R>ice.river[1:5,] tree nombres<-c(““) data(trees)

matriz_arboles <- as.matrix(trees) arboles <- as.data.frame(matriz_arboles) head(arboles) arboles <- subset(trees, Height >= 70 & Height <= 80 & Girth < 13) arboles <- data.frame(Altura = arboles\(Height, Diametro = arboles\)Girth) arboles plot(type=“b”,arboles\(Diametro,arboles\)Altura,pch = 15,col = “green”,xlab = “pulgadas”, ylab = “pies”,main = “altura y ancho de Árboles cherry negros”) legend(“topleft”, legend = “diametro vs altura”, pch = 15, col = “blue”)