# COSTRUIRE UN DATAFRAME

# una variabile nominale
x <- c(1, 4, 3, 3, 2, 1, 2, 2, 3, 1, 1, 1, 4, 2, 1, 2, 
       3, 4, 2, 2)
x <- factor(x)
levels(x) <- c("N","C","V","S")

# una variabile ordinale
y <- factor(c(4, 2, 1, 2, 4, 3, 3, 2, 4, 2, 3, 1, 3, 3, 3, 4, 
       2, 2, 3, 3))
levels(y) <- c("A","O","S","L")            
y<-ordered(y)

# una variabile cardinale
z <- c(0, 1, 3, 4, 1, 1, 0, 2, 3, 0, 1, 0, 1, 4, 3, 0, 
       2, 2, 4, 4)

# si uniscono le variabili nel dataset

mydata <- data.frame(X=x, Y=y, Z=z)
# X, Y e Z sono i nomi delle colonne

# EDITOR DEI DATI
edit(mydata)

# salvare il file modificato nello stesso file
mydata<-edit(mydata)

# salvare il file modificato in un nuovo file
mydata2<-edit(mydata)

# INSERIMENTO DI ALTRI DATI

# Inserimento di una nuova variabile
s <- factor(c("M", "F", "M", "M", "F", "F", "F", "M", "F", "M", "F", "F",
              "F", "M", "F", "M", "M", "F", "M", "M"))
mydata$S <- s

# Inserimento di un nuovo caso
c21<-c(1,"O",3,"F")
mydata[21,]<-c21