andmed=read.csv("http://haldna.ee/r/Statistika/EMU_2023.csv",header=TRUE,sep=",", dec=".")
attach(andmed)

names(andmed)
andmed

summary(andmed)

boxplot(pikkus,ylab="Pikkus, cm",main="Kõik tudengid")
boxplot(kaal,ylab="Kaal, kg",main="Kõik tudengid")
mean(pikkus)
sd(pikkus)
hist(pikkus)

Pikkus=rnorm(n=300,mean=172,sd=9)

par(mfrow=c(1,2)) # kaks graafikut kõrvuti
hist(pikkus, main="Empiirilised ",ylab="tudengite arv")
hist(Pikkus, main="Teoreetilised",ylab="")

kaal2=rnorm(n=300,mean(kaal),sd(kaal))
hist(kaal, main="Empiirilised kaalud",ylab="tudengite arv")
hist(kaal2, main="Teoreetilised kaalud",ylab="")

table(mathinne)
prop.table(table(mathinne)) # suhtelised sagedused
prop.table(table(mathinne))*100 # suhtelised sagedused protsentides
round(prop.table(table(mathinne))*100,1)

T1=table(mathinne)
prop.table(T1)*100
round(prop.table(T1)*100,1)
barplot(T1)
pie(T1) # võimalikud graafikud

shapiro.test(pikkus) 

Kas naiste ja meeste pikkuste varieeruvused on sarnased ?
bartlett.test(pikkus~factor(sugu))
fligner.test(pikkus~factor(sugu))
var.test(pikkus~factor(sugu))
table(sugu)

sd(pikkus[sugu=="m"])
sd(pikkus[sugu=="n"])
names(andmed)

boxplot(pikkus~factor(sugu),col=FALSE)

boxplot(biolpunkte~factor(aeg),col=FALSE)

boxplot(kaal~factor(aeg),col=FALSE)

t.test(pikkus~factor(sugu))

t.test(pikkus)