if (FALSE) {
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