The intention with this file

  1. Install a program called SimThyr
  2. Import one file - StandardV
  3. Trim the file

SimThyr

SimThyr simulates Thyroid function based on changes in a long range of parameters. The intention with the simulator is primarily educational. The program is downloadable from this website: ### https://sourceforge.net/projects/simthyr/ Further information: https://simthyr.sourceforge.io/index.html

Download the Standard file:

library(vroom)
StandardV <- vroom("https://www.glensbo.dk/circle/wp-content/uploads/2023/02/Standard_730.csv")
## New names:
## Rows: 630720 Columns: 36
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," chr
## (5): month, day, hour, minute, second dbl (27): ...1, NA_1, i_NA, year,
## TRH_ng.l, pTSH_mU.l, TSH_mU.l, TT4_nmol.l... lgl (1): X_NA dttm (1):
## t_day.h.m.s date (1): date time (1): time
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`

Tidying the Standard file

Excluding Rows - only having the rows covering the year 1901. dplyr::filter - I used this notion as I experienced conflicts with other packages.

library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
StandardV <- dplyr::filter(StandardV, year == "1901")

Next I exclude columns that I do not need for the time being.

library(dplyr)
StandardV <- subset(StandardV[c(3, 8, 12:19, 24:26)])