# NOT RUN {
data(USCrime)
us.crime<-USCrime
dim(us.crime)
head(us.crime)
summary(us.crime)
names(us.crime)
nrow(us.crime)
result <- classic.to.sym(us.crime, concept='state',
variables =c(NumInShelters, NumImmig),
variables.types =c(NumInShelters = type.histogram(),
NumImmig = type.histogram()))
result
# }
Run the code above in your browser using DataLab