intesa<-read.csv("c:/msmf/intesa.csv",header=T,dec=".",sep=",") intesa[1:10,] # Calcolo del prezzo ufficiale della seduta p.uff<-sum(intesa$CTVL)/sum(intesa$QUANT) p.uff # Individuazione del prezzo minimo p.min<-min(intesa$PREZ) p.min rp.min<-which(intesa[,3]==p.min) intesa[rp.min,2] # Individuazione del prezzo massimo p.max<-max(intesa$PREZ) p.max rp.max<-which(intesa[,3]==p.max) intesa[rp.max,2] # Calcolo del prezzo di riferimento intesa.rif<-intesa[floor(0.9*nrow(intesa)):nrow(intesa),] p.rif<-sum(intesa.rif$CTVL)/sum(intesa.rif$QUANT) p.rif