if (FALSE) {
#Create a pointer to the table IRIS
idf<-ida.data.frame('IRIS')
#Add a column
idf$SepalLengthg4 <- ifelse(idf$SepalLength>4,'t','f')
#Calculate the cross-table between Species and SepalLengthg4
idaTable(idf[,c('Species','SepalLengthg4')])
}
Run the code above in your browser using DataLab