Update aapl_prezzi.R

esempiII/aapl_prezzi.R

 # determinare l'errore
 
-caricare il file
+# caricare il file
 aapl <- read.csv(file='aapl_prezzi.csv', header=TRUE, stringsAsFactor=FALSE)
 
-invertire i dati sulle righe
+# invertire i dati sulle righe
 aapl <- aapl[rev(rownames(aapl)),]
 
-estrarre il prezzo di chiusura
+# estrarre il prezzo di chiusura
 aapl_close <- aapl[, 'Close']
 
-determinare informazioni statistiche in formato tabellare
+# determinare informazioni statistiche in formato tabellare
 summary(aapl_close)
 
-scrivere il file modificato
+# scrivere il file modificato
 write(aapl, file='aapl_prezzi_riordinato.csv')
 
 # riaprire il file