Uvod v R

knitr::opts_chunk$set(echo = TRUE)
options(width=70) #Določimo širino izpisa rezultatov

# Uvoz podatkov
naloga <- read.table("/cloud/project/Uvod v R/Študent.csv", # Navedemo točno lokacijo datoteke
                     header=TRUE, # V prvi vrstici so podana imena
                     sep=";", # Ločilo med spremenljivkami
                     dec=",", # Decimalno ločilo
                     encoding="UTF-8") # Uporabimo, v kolikor imamo težavo pri branju šumnikov

# Izpišemo prvih 6 vrstic podatkov
head(naloga)

##   Višina Teža Tlak
## 1  179.0   70  105
## 2  178.0   68  105
## 3  174.0   64  109
## 4  174.0   63  112
## 5  173.5   61  100
## 6  173.0   60   99

# Razvrstimo enote rastoče po višini in prikažemo prvih 6 opazovanj
head(naloga[order(naloga$Višina), ])

##    Višina Teža Tlak
## 20    166   55  128
## 8     168   57   90
## 9     168   56  100
## 7     170   57   98
## 18    170   58   98
## 19    170   57  107

naloga1 <- naloga[ , c("Višina", "Teža" )] # Izberemo samo dve spremenljivki in ju shranimo v novo matriko
str(naloga1) #Prikažemo strukturo nove matrike

## 'data.frame':    20 obs. of  2 variables:
##  $ Višina: num  179 178 174 174 174 ...
##  $ Teža  : int  70 68 64 63 61 60 57 57 56 78 ...

naloga1$Višina_m <- naloga1$Višina/100 # Izračunamo novo spremenljivko
naloga1$BMI <- naloga1$Teža / naloga1$Višina_m^2 # Izračunamo BMI
head(naloga1) # Izpišemo prvih 6 opazovanj

##   Višina Teža Višina_m      BMI
## 1  179.0   70    1.790 21.84701
## 2  178.0   68    1.780 21.46194
## 3  174.0   64    1.740 21.13886
## 4  174.0   63    1.740 20.80856
## 5  173.5   61    1.735 20.26427
## 6  173.0   60    1.730 20.04745

summary(naloga1$BMI) # Opisna statistika za spremenljivko BMI

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##   19.72   20.06   21.10   21.20   22.35   23.25

boxplot(naloga1$BMI) # Graf kvantilov za spremenljivko BMI