##########################################################
# Calcolo prezzo giornalieri su dati infragioranlieri
##########################################################

# Input: il file "intesa.csv" contiene i dati tick by tick
# registrati in una giornata di borsa dal titolo INTESA
# Variabili incluse nel file:
# DATA	ORA	PREZ	QUANT	 CTVL(controvalore=PREZ*QUANT)

  titolo<-read.csv("c:/dati/intesa.csv",header=TRUE,dec=".",sep=",")
  # Prezzo ufficiale: media ponderata dei prezzi della giornata
  p.uff<- sum(titolo$CTVL)/sum(titolo$QUANT)
  # Prezzo minimo
  p.min<-min(titolo$PREZ)
  # Prezzo massimo
  p.max<-max(titolo$PREZ)
  # Prezzo di riferimento: media ponderata dei prezzi dell'ultimo
  # 10% dei contratti conclusi
  titolo.rif<-titolo[floor(0.9*nrow(titolo)):nrow(titolo),]
  prif<-sum(titolo.rif$CTVL)/sum(titolo.rif$QUANT)