powered by
plotspec(specimen, digitspec, fixed)
data(Specimen4Raw) rawdat<-as.matrix(Specimen4Raw) data(scallops) digitdat<-scallops$coorddata[,,1] plotspec(specimen=rawdat,digitspec=scallops$coorddata[,,1],fixed=16)
Run the code above in your browser using DataLab