---
title: "Exo2"
author: "Erick"
date: "16/09/2025"
output: html_document
---
library(clipr)
data <- unlist(read_clip_tbl(header = FALSE,sep=","))
mean(data)
min(data)
max(data)
median(data)
sd(data)
plot(data, col="blue", type = "l")
grid(nx = NULL, ny = NULL,
     lty = 2,      # Grid line type
     col = "gray", # Grid line color
     lwd = 2)      # Grid line width
hist(data)