---
title: "Exercice 02-04"
author: "Sara Barriga"
date: "07/08/2025"
output: html_document
---

**Celle-ci est une tentative d'exploiter mes données d'UV**

```{r, echo = FALSE}

# Activer les library necessaires
library(readr)

# Stocker les données dans une variable
df <- read_csv("P161_3mm.csv", skip = 1, col_names = FALSE)

# Nommer les colonnes
colnames(df) <- c("Temperature_H", "Absorbance_H", "Temperature_C", "Absorbance_C")

# Enlever les headliners
df <- df[-1, ]

# S'assurer que les colonnes sont lues comme character numerique
df$Temperature_H <- as.numeric(df$Temperature_H)
df$Absorbance_H<- as.numeric(df$Absorbance_H)
df$Temperature_C <- as.numeric(df$Temperature_C)
df$Absorbance_C <- as.numeric(df$Absorbance_C)

# Calculer la transmittance avec l'equation: (10^(-Absorbance)) * 100
df$Transmittance_H <- (10^(-df$Absorbance_H)) * 100
df$Transmittance_C <- (10^(-df$Absorbance_C)) * 100

# Re ordonner les colonnes
df <- df[, c("Temperature_H", "Absorbance_H", "Transmittance_H", 
             "Temperature_C", "Absorbance_C", "Transmittance_C")]

# Observer les premieres 10 lignes pour verifier les resultats
head(df, 10)

# Observer la structure des données
str(df)

# Sauvegarder les données
write_csv(df, "processed_P161_data.csv")

```


```{r, echo = FALSE}

# Graphiquer Transmittance

df <- read_csv("processed_P161_data.csv")

# Graphique 1: Heating
plot(df$Temperature_H, df$Transmittance_H, type = "b", 
     col = "red", pch = 16, xlab = "Temperature (°C)",
     ylab = "Transmittance (%)", main = "Temperature vs Transmittance")
# Graphique 2: Cooling
points(df$Temperature_C, df$Transmittance_C, type = "b", 
       col = "blue", pch = 17)
legend("topright", legend = c("Heating", "Cooling"),
       col = c("red", "blue"), pch = c(16, 17), lty = 1)

```