Soluzioni esercizi sui vettori. Gli esercizi 1,2 e 4 sono semplici (li abbiamo
visti in classe durante la scorsa lezione). Queste sono le soluzioni degli
esercizi 3 e 5.

Es.3:
> s<-rep(c("C","G","T","C"),times=3)
> sub <- s[s!="C"]
> sub[(length(sub)+1):(length(sub)+3)] <- NA
> sub <- sub[!is.na(sub)]


Es.5
> vet <- runif(100)
> subvet <- vet[vet>0.2 & vet <0.6]
> w <- subvet[seq(2,length(subvet),by=2)]
> w <- (w-mean(w))/sd(w)

Soluzioni esercizi sulle matrici:

Es.1:
vect<-runif(100)
m1<-matrix(vect,ncol=10,nrow=10)
m2 <- array(vect, c(10,10))

Es.2:
s<-rep(c("C","G","T","C"),times=10)
x<-matrix(s[1:12],ncol=4,nrow=3)
y<-array(s[13:27],c(5,3))
x[,1:2]<-y[4:5,]

Es.3:
vect <- runif(100)
M<-matrix(vect[1:15],ncol=5,nrow=3)
N<-matrix(vect[16:30],ncol=5,nrow=3)
rbind(M,N)
cbind(M,N) # controllare se il risultato e' una matrice : usare is.matrix()

Es.4:
vect <- rnorm(18)
A<-matrix(vect[1:9],ncol=3,nrow=3)
B<-matrix(vect[10:18],ncol=3,nrow=3)
A*B	# prodotto elemento per elemento
A%*%B	# prodotto righe per colonne 

b<-c(10,20,30)
x<-solve(A,b)
# prova:
A %*% x

L'esercizio 5 tralasciatelo.