# NOT RUN {
data("featuredata_roots")
featuredata_roots[featuredata_roots==0]<-NA
imp_data<-MissingValues(LogTransform(featuredata_roots)$featuredata)$featuredata
Corr( imp_data[c(1:17),], imp_data[c(18:37),])
Corr( imp_data[c(1:17),])
# }
Run the code above in your browser using DataLab