library("maptools")

## Loading required package: sp

## Checking rgeos availability: TRUE

endereco<-"/home/rpessoa/R/mapasalvador/Setor_censitario_dissolve.shp"
mbs <-readShapePoly(endereco)

plot(mbs)