In modelistatistik/deneme: Template of R Codes Used in Histopathology Research

Save Final Data {.appendix}

projectName <- list.files(path = here::here(), pattern = "Rproj")
projectName <- gsub(pattern = ".Rproj", replacement = "", x = projectName)

analysisDate <- as.character(Sys.Date())

imageName <- paste0(projectName, analysisDate, ".RData")

save.image(file = here::here("data", imageName))

rdsName <- paste0(projectName, analysisDate, ".rds")

readr::write_rds(x = mydata, path = here::here("data", rdsName))

saveRDS(object = mydata, file = here::here("data", rdsName))

excelName <- paste0(projectName, analysisDate, ".xlsx")

writexl::write_xlsx(mydata, here::here("data", excelName))

print(glue::glue(
    "saved data after analysis to",
    rownames(file.info(here::here("data", excelName))),
    " : ",
    as.character(
        file.info(here::here("data", excelName))$ctime
    )
    )
)

\pagebreak

Final Data Summary {.appendix}

# summarytools::view(summarytools::dfSummary(x = mydata
#                                            , style = "markdown"))

# mydata %>% select(
#     -c(
#         rapor_yil,
#         rapor_no,
#         protokol_no,
#         istek_tarihi,
#         nux_yada_met_varsa_tarihi,
#         son_hastane_vizit_tarihi,
#         Outcome
#     )
# ) -> finalSummary
# 
# summarytools::view(summarytools::dfSummary(x = finalSummary
#                                            , style = "markdown"))

\pagebreak

Software and Libraries Used {.appendix}

citation()

The jamovi project (2019). jamovi. (Version 0.9) [Computer Software]. Retrieved from https://www.jamovi.org. R Core Team (2018). R: A Language and envionment for statistical computing. [Computer software]. Retrieved from https://cran.r-project.org/. Fox, J., & Weisberg, S. (2018). car: Companion to Applied Regression. [R package]. Retrieved from https://cran.r-project.org/package=car.

report::cite_packages(session = sessionInfo())

citation("tidyverse")
citation("readxl")
citation("janitor")
citation("report")
citation("finalfit")
# citation("ggstatplot")

\pagebreak

Session Info {.appendix}

sessionInfo()

\pagebreak

Notes {.appendix}

Last update on r Sys.time()

Serdar Balci, MD, Pathologist
[e-mail]
https://rpubs.com/sbalci/CV

modelistatistik/deneme documentation built on Nov. 4, 2019, 7:28 p.m.