mirror of
https://github.com/NohamR/Stage-2023.git
synced 2025-05-24 00:49:03 +00:00
7 lines
325 B
R
7 lines
325 B
R
setwd('Stage')
|
|
accelpt=read.table(file="accelpt4.csv",sep=";",header=TRUE)
|
|
names(accelpt)
|
|
lissage=loess(or~ab,accelpt)
|
|
plot(accelpt$ab,accelpt$or,main="",pch=19,col='blue',xlab="Numéro de l'image",ylab="Accélération sans l'unité")
|
|
xyfit=predict(lissage, newdata=accelpt$ab)
|
|
lines(accelpt$ab,yfit,lwd=4,type='l',col='red') |