Ejemplo dplyr

library(dplyr)

Esto es una cabecera

esto es otra

esto es negrita

martin_data<-read.csv(file="https://raw.githubusercontent.com/MrtC101/ia-uncuyo-2022/master/tp4-busquedas-informadas/ResultSets/tp4-resultSet.csv")
martin_data

plot((filter(martin_data,Algorithm=="BFS"))$Solution_Lenght,type = "l")

(filter(martin_data,Algorithm=="BFS"))

martin_data %>% group_by(Algorithm) %>% summarise(promedio=mean(Solution_Lenght),desviacion=sd(Solution_Lenght)) %>% 
  arrange(desc(promedio))

martin_data %>% mutate(Solution_Lenght_promedio=mean(Solution_Lenght))

martin_data %>% group_by(Algorithm) %>% count()