#Lehen praktika
3*9
e <- 9
#Bektorek sortu
a <- c(3,6,1.7,8,2,3.1)
b <- c("a","b","a")
d <- c(TRUE,FALSE,TRUE)
#Matrizek sortu
am <- matrix(a,nrow=3,byrow=FALSE)
am
#Class eta Mode
class(am)
mode(am)
class(e)
mode(e)
class(b)
class(dat)
mode(dat)
#Kanpo fitxagik ebali
dat <- read.table("C:/Users/ehu/Desktop/datuak.txt",header=TRUE)
#bektoretako elementuk eskurau
a[3]
a[c(3,5)]
am[3,1]
am[3,]
am[,1]
am[1:2,1]
dat[,2]
dat$Pisua
#laguntza
help(tabulate)

########################################
################Labo####################

#1 ariketa
datuak <- c(3, 3, 1, 3, 2, 2, 1, 3, 3, 1, 1, 3, 1, 2, 3)
length(datuak)

j <- table(datuak)
table(datuak)/15
izen <- c("linux","mac","windows")

pie(j, izen)
mtext("Sektore Diagrama", 3)
barplot(j, names.arg=izen)
mtext("Barra Diagrama", 3)

#2 ariketa
irudia1 <- read.table("C:/Users/ehu/Desktop/irudi1.csv", header=FALSE)
x1 <- c(as.matrix(irudia1))
irudia2 <- read.table("C:/Users/ehu/Desktop/irudi2.csv", header=FALSE)
x2 <- c(as.matrix(irudia2))
hist(x1)
hist(x2)