## Not run:
# data(kidneySimTimeGroup)
# G1 <- kidneySimTimeGroup$group=="G1"
# noiseTest <-investNoise(data=kidneySimTimeGroup$data[G1,],time=kidneySimTimeGroup$time[G1],
# sampleID=kidneySimTimeGroup$sampleID[G1])
# plot(noiseTest,colorBy="fc")
# ## End(Not run)
Run the code above in your browser using DataLab