spmib=read.csv("c:/msmf/spmib.csv",header=T) nrow(spmib) ncol(spmib) a=spmib[c(2,7,340),] chiusura=as.matrix(seq(nrow(spmib),1,-1)) chiusura=cbind(chiusura,spmib[,5]) chiusura=chiusura[sort.list(chiusura[,1]),] chiusura=as.matrix(chiusura[,2]) plot(chiusura,type="l",ylab="S&P MIB",xlab="Tempo",main="Grafico del S&P MIB dal 2003 al 2008",col="purple") chiusura