# Define a factor
x1 <- make.mtkFactor(name="x1", distribName="unif",
distribPara=list(min=-pi, max=pi))
# Return the data-type associated with the factor
t <- getType(x1)
# Create an object of the 'mtkFeature' class.
f <- mtkFeature(name="x", type="double", val=0.0)
# Return the data-type associated with the feature
getType(f) # gives 'double'
Run the code above in your browser using DataLab