raw <- read.table("rawcut.dat",header=TRUE,sep=",")

raw.feature <- names(raw)
raw.fname   <- raw.feature
raw.type    <- raw.feature 
raw.nfeat   <- length(raw.feature)

for (j in 1:raw.nfeat) {
 raw.fname[j] <- paste("raw$",raw.feature[j],sep="")
 x <- raw[,j]
 if (is.factor(x)) raw.type[j] <- "factor"
 else if (is.logical(x)) raw.type[j] <- "logical"
 else if (is.double(x)) raw.type[j] <- "double"
 else if (is.integer(x)) raw.type[j] <- "integer"
 else if (is.character(x)) raw.type[j] <- "character"
 else if (is.null(x)) raw.type[j] <- "null"
 else raw.type[j] <- "unknown"
}