data(spsites)
plot(spsites, main=attr(spsites, "name"))
sp.pData <- spsites@spsiteIpos.pData
##col <- as.integer(factor(sp.pData$tissue))
##plot(spsites, col.typeI=col, main=attr("name", spsites))
Run the code above in your browser using DataLab