statistica lab

# statistica descriptiva

# importare de date din fisier .dat
d <- read.table("D:\\d1.dat", header=TRUE)
attach(d)
pie(facultate, labels=departament, main="O placinta")
barplot(facultate, names.arg=departament, col="magenta")
sum(facultate)
barplot(facultate/53, names.arg=departament, col="magenta")

e <- read.table("D:\\d2.dat", header=TRUE)
attach(e)

t <- seq(12, 34, 0.001)
hist(y, col="beige", freq=FALSE)
lines(t, dnorm(t, mean(y), sqrt(var(y))), col="red")


# m <- mean(y)
# summary(y)
# v <- var(y)