# Determinazione di un numero indice di borsa
nomi<-c("bulgari","eni","fastweb","mediaset","mps",
"pirelli","telecom","unipol")

indici.r<-function(nomi)
{
durata<-1000
for(i in (1:length(nomi)))
{
a<-paste("u:/dati/",nomi[i],".csv",sep="")
titolo<-read.csv(a,header=T,dec=".",sep=",")

close_vol<-titolo[,5:6]
ordine<-matrix(seq(nrow(titolo),1,-1))
close_vol<-cbind(ordine,close_vol)
close_vol<-close_vol[sort.list(close_vol[,1]),]
close.p<-close_vol[,2]
volum<-close_vol[,3]
tempo0<-nrow(titolo)-durata+1
titolo.nis<-close.p/close.p[tempo0]
print(titolo.nis[1])

}

}