set.thread.count(2)
data(cgps)
feature_data <- mRMR.data(data = data.frame(cgps.ge))
# Uniform weight (default)
sampleWeights(feature_data)
# Random weighting
sampleWeights(feature_data) <- runif(sampleCount(feature_data))
# Show result
sampleWeights(feature_data)
Run the code above in your browser using DataLab