# R-harjoitukset 3 
################ 
#
# Matriisin muodostaminen 
#

x<-array(1:20, dim=c(4,5))

a<-rnorm(20)

y<-matrix(a,nr=4,nc=5, byrow=T)


# matriisin y ensimmäisen sarakkeen alkiot

y[,1]

# matriisin y ensimmäisen rivin alkiot

y[1,]


# muosdostetaan 2x2 matriisi, jonka kaikki alkiot 1

m1<-matrix(data=1,nr=2,nc=2) 

m2<-matrix(data=2,nr=2,nc=2) 

# yhdistetään matriisit allekkain

rbind(m1,m2)

# yhdistetään matriisit vierekkäin

cbind(m1,m2)


################ 
#
# apply-funktion käyttö
#

# lasketaan matriisin x rivisummat

apply(x,1,sum)

# lasketaan matriisin x sarakesummat

apply(x,2,sum)


# lasketaan sarakkeittain matriisista x keskiarvot ja keskihajonnat

apply(x,2,mean)

apply(x,2,sd)


################ 
#
# loogisista operaatioista
#

1:6==6
1:6!=6
1:6<3
1:6>=5

# muutetaan vektorit numeerisiksi (TRUE=1 ja FALSE=0)

as.numeric(1:6==6)
as.numeric(1:6!=6)