# INIZIO ESEMPIO ********************************

# MATRICE CON DATI MANCANTI
# la prima riga contiene i nomi delle variabili, il separatore è parametrizzabile 
# la prima colonna contiene la Diagnosi
# la seconda colonna contiene la concentrazione delle IgA in mg/dL
# notare / invece di \ su windows 
mydata <- read.table("c:/R/InputNA/InputNA.csv", header=TRUE, 
   sep=";")

# visualizza mydata con i dati non disponibili NA
mydata

# calcola la media della colonna Normali
x <- mydata[c("Normali")]
mean(x)

# non calcola la media della colonna/variabile NCAH, ma causa di dati mancanti resituisce NA
x <- mydata[c("NCAH")]
mean(x)

# calcola la media della colonna/variabile NCAH dopo avere rimosso i dati mancanti
x <- mydata[c("NCAH")]
mean(x, na.rm=TRUE)

# vettore logico che indica quali casi sono completi
complete.cases(mydata)

# crea un nuovo dataset, con i soli casi completi
newdata <- na.omit(mydata) 

# mostra il nuovo dataset
newdata

# FINE ESEMPIO ********************************