naloga <- read.table("C:/Users/Sarah/Desktop/MTRD NALOGE/Task 2/Body mass.csv", header = TRUE, sep= ";", dec = ",")

summary(naloga)

##        ID             Mass      
##  Min.   : 1.00   Min.   :49.70  
##  1st Qu.:13.25   1st Qu.:60.23  
##  Median :25.50   Median :62.80  
##  Mean   :25.50   Mean   :62.88  
##  3rd Qu.:37.75   3rd Qu.:64.50  
##  Max.   :50.00   Max.   :83.20

hist(naloga$Mass,
     main = "histogram telesne mase",
     ylab = "frekvenca",
     xlab = "masa",
     breaks = seq(from = 45, to = 85, by = 5),
     col = "orange")

std_sample <- sd (naloga$Mass)

t.test (naloga$Mass, 
        mu= 59.5)

## 
##  One Sample t-test
## 
## data:  naloga$Mass
## t = 3.9711, df = 49, p-value = 0.000234
## alternative hypothesis: true mean is not equal to 59.5
## 95 percent confidence interval:
##  61.16758 64.58442
## sample estimates:
## mean of x 
##    62.876

#install.packages("pastecs")
library(pastecs)

#install.packages("packrat")
library(packrat)

#install.packages("rsconnect")
library(rsconnect)

```