Create Activity of Smart Phones.Rproj