##
## Laboratorio saioa: RStudiorekin hasten
## 1.- R-ren laguntza
help.start()

## Funtzioei buruzko informazio zehatzagoa hemen aurkituko duzu:
## http://stat.ethz.ch/R-manual/R-devel/library/base/html/00Index.html
##
## Information on package ‘base’:
library(help="base")

## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## Hainbat funtziorekin trebatzen
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
## Assignment Operators (<-, ->, =)
x<-2
3-> y
z=4
x
y
z

## Arithmetic Operators (+, -, *, /, ^, %%, %\%)
x+y
(x+y)-z
((x+y)-z)*z/x
x^y
## Laguntzan sakatu %% ze eragiketa den ikusteko
## Value atalean zera dio:
##   %% indicates x mod y and %/% indicates integer division. 
(y+z) %% x
(y+z) %/% x
  
## Relational Operators (<, >, <=, >=, ==, !=)
x<y
x>y
x<=y
x>=y
x==y
x!=y

## Logical Operators (logical negation !,  logical AND &, logical OR |)
!(x<y)
x<y
y<x
(x<y)&(y<x)
(x<y)|(y<x)

## Sequence Generation (c, colon :, seq), length
## Combine Values into a Vector or List (c)
a<-c(1,2,3)
a
b<-c(x,y,z)
b
length(a)

## Bektoreko osagai bat hartzeko:
  a[1]

1:10
4:20
x:z
## 2tik 20ra binaka
seq(2,20,2)
seq(2,20,4)

## 

## Print, Concatenate and print
print(5+5)
cat("Hiru gehi hiru (", y, "+", y, ") sei da", y+y)

## Control flow (if, if else, while, for)
if (x<y) y-x
if (y<x) x-y else 0
while (x<z) {print(x); x<-x+1}
for (i in 1:10) {print(i)}
for (i in 1:10) {print("a")}

## Funtzio bat definitzen
luzera_itzuli<-function(v)
{bek_luzera=length(v);
 return(bek_luzera);
}
v<-c(1,2)
luzera_itzuli(v)

## Bestelakoak (is.numeric, as.numeric)
is.numeric(5)
## [1] TRUE
is.numeric("5")
## [1] FALSE
hitza<-"kaixo"
is.numeric(hitza)
## [1] FALSE

v=c("kaixo", 1,2,3)
v[1]
is.numeric(v[1])
v[2]
is.numeric(v[2])
v[2]+v[3]
as.numeric(v[2])+as.numeric(v[3])

## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
##  3. Ariketa. Funtzioak definitu bektoreko osagaiekin 
##             eragiketak egiteko: batuketak, biderketak...
## %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

## Hona hemen emandako bektore baten lehenengo bi osagaien
## batura kalkulatzen duen funtzioa

## Funtzioaren definizioa:

batuketa<-function(v)
{
  v1<-v[1];
  v2<-v[2];
  cat("Bektorea=(",v1,",",v2,"), ","Bi osagaien batura=", v1+v2, "\n");
}

## Deia funtzioari:

v<-c(1,2)
length(v)
## [1] 2
batuketa(v)
## Bektorea=( 1 , 2 ),  Bi osagaien batura= 3 

## ############################################################
## 3.1 Ariketa. Edozein luzerako bektore bateko osagai guztien batura.
## Funtzio berri bat definituko dugu, batuketa2 izenekoa. 
## Parametro moduan jasotzen duen v bektoreak ez dakigu 
## zenbat osagai dituen. Funtzioak osagai guztien batura 
## kalkulatuko du.
##
## v bektorearen luzera zein den jakiteko length(v) erabil dezakezu
## Behin osagai kopurua jakinda, for bat antolatu osagai guztiak hartzeko
## Gogoratu, v bektoreko i. osagaia atzitzeko v[i]

## Funtzioaren definizioa: 
batuketa2<-function(v)
{
  
  
  
  
  
}

## Deiak funtzioari probak egiteko:
w1<-c(3,8,10,2,4,9)
w2<-c(3,8,10)
w3<-c(3,8,10,0,-1,9)
batuketa2(w1)
## [1] 36
batuketa2(w2)
## [1] 21
batuketa2(w3)
## [1] 29

##################################################################
## 3.2  Ariketa. Bektore bateko osagaiak batu edo bidertu.
##
## Bektorearen lehenengo osagaiak adieraziko du eragiketa (karaketereak).
## Gainerako posizioetan zenbakiak datoz. Ze motako bektorea da R-rentzat?
## Dena karaketereak direla ulertzen du... Zenbakiak batzeko arazoak...
## zenbakizko direla esplizituki esateko: as.numeric(v[i])

##  Funtzioaren definizioa:
batuketa3<-function(v)
{
  
  
  
  
  
  
  
  
  
  
  
  
}

## Deiak funtzioari probak egiteko:

v1=c("batu", 1,2,3,4,5,6)
batuketa3(v1)
#[1] 21

v2=c("biderkatu", 1,2,3,4,5,6)
batuketa3(v2)
#[1] 720

##########################################################3
## Funtzioa hobe dezakezu lehenengo osagaian "batu" edo "biderkatu" agertzen
## ez bada errore mezuren bat erakusteko?
batuketa3<-function(v)
{
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
}

## Deiak funtzioari probak egiteko:

v1=c("batu", 1,2,3,4,5,6)
batuketa3(v1)
#[1] 21

v2=c("biderkatu", 1,2,3,4,5,6)
batuketa3(v2)
#[1] 720

v3=c(1,2,3,4,5,6)
batuketa3(v3)
# Ezin da batu ala biderkatu. 

v4=c("batu")
batuketa3(v4)
# Ezin da batu ala biderkatu. 

#####################################################################
## 3.3 Ariketa
## Edozein luzerako bektore bateko bi balio handienak zein diren eta 
## zein posizioetan dauden itzuliko duen funtzioa.

## Funtzioaren definizioa:

bi_handienak<-function(v)
{
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
  
}

## Deiak funtzioari probak egiteko:

v5<-c(3,8,10,2,4,9)
bi_handienak(v5)
# Handiena: 10 Posizioa: 3 Bigarren handiena: 9 Posizioa: 6 

v6<-c(3,8)
bi_handienak(v6)
# Handiena: 8 Posizioa: 2 Bigarren handiena: 3 Posizioa: 1 

v7<-c(8,3)
bi_handienak(v7)
# Handiena: 8 Posizioa: 1 Bigarren handiena: 3 Posizioa: 2 

v8<-c(8,8)
bi_handienak(v8)
# Handiena: 8 Posizioa: 1 Bigarren handiena: 8 Posizioa: 2 

v9<-c(8)
bi_handienak(v9)
# Bektoreak gutxienez 2 osagai izan behar ditu 

v10<-c(8,8,0,2,12,8,12,12)
bi_handienak(v10)
# Handiena: 12 Posizioa: 5 Bigarren handiena: 12 Posizioa: 7