zenithsiz-ist/pe-proj
1
0
Fork 0
mirror of https://github.com/Zenithsiz/ist-pe-proj.git synced 2026-02-03 05:57:12 +00:00
Code Issues Packages Projects Releases Wiki Activity

Improved some formatting and added linter options.

Browse Source
This commit is contained in:
Filipe Rodrigues 2023-06-04 01:40:28 +01:00
parent 84d1569272
commit 8d02f82b59
3 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.lintr Normal file
View File

@ -0,0 +1 @@
linters: with_defaults(line_length_linter=line_length_linter(120))

2
.vscode/settings.json vendored
View File

@ -1,3 +1,3 @@
{
"cSpell.words": ["ddesemp", "ggplot", "ggsave", "readxl"]
"cSpell.words": ["ddesemp", "ggplot", "ggsave", "readxl", "xlab", "ylab"]
}

8
1/script.R
View File

@ -22,12 +22,8 @@ tpp_sd <- sd(df$tpp)
df_adjusted <- data.frame(
tempo = df[, c("tempo")],
ddesemp = lapply(df[, c("ddesemp")], function(ddesemp) {
(ddesemp - ddesemp_mean) / ddesemp_sd
}),
tpp = lapply(df[, c("tpp")], function(tpp) {
(tpp - tpp_mean) / tpp_sd
})
ddesemp = lapply(df[, c("ddesemp")], function(ddesemp) (ddesemp - ddesemp_mean) / ddesemp_sd),
tpp = lapply(df[, c("tpp")], function(tpp) (tpp - tpp_mean) / tpp_sd)
)
# Then plot them and save the output