## Datasets for Statistics for Archaeologists by Robert Drennan

The following datasets are used in the exercises at the end of each chapter. Select the commands and paste them into the Rcmdr script window or the R Console.  Larger datasets are provided via links as .RData files.

Chapter 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 22, 23, 24, 25

Datasets - Drennan, Chapter 1
Kiskiminetas River Valley site areas:
KRV <- data.frame(Area=c(12.8, 11.5, 14, 1.3, 10.3, 9.8, 2.3, 15.3, 11.2, 3.4, 12.8, 13.9, 9, 10.6, 9.9, 13.4, 8.7, 3.8, 11.7, 1.7, 12.3, 11, 2.9, 10.7, 7.4, 8.2, 2, 2.2, 4.5))

Scraper Lengths from Pine Ridge Cave the and Willow Flats Site: Scrapers.RData

Datasets - Drennan, Chapter 2
Flake Weights from Two Bell-Shaped Pits: Flakes.RData

Floor Areas of Structures at the Black-Smith Sites:
BlackSmith <- data.frame(Area=c(18.3, 18.8, 16.7, 6.1, 5.2, 21.2, 19.8, 4.2, 18.3, 3.6, 20.0, 7.5, 15.3, 26.8, 5.4, 18.7, 6.2, 7.0, 20.7, 18.9, 19.2, 6.7, 19.1, 23.4, 4.5, 16.2, 5.6, 17.5, 5.9, 6.7, 4.9, 17.9, 15.0, 13.6, 5.4, 5.8))

Datasets - Drennan, Chapter 3

Site areas from Early and Late Bronze Age Sites Near Nanxiong: Nanxiong.RData

Datasets - Drennan, Chapter 4
Post hole diameters from the Black and Smith Sites:
BSPosts <- data.frame(Site=c(rep("Black Site", 13), rep("Smith Site", 15)), Diameter=c(9.7, 9.2, 12.9, 11.4, 9.1, 44.6, 10.5, 11.7, 11.1, 7.6, 11.8, 14.2, 10.8, 20.5, 17.2, 15.3, 15.9, 18.3, 17.9, 18.6, 14.3, 19.4, 16.4, 18.8, 15.7, 18.9, 16.8, 8.4))

Datasets - Drennan, Chapter 5
Buena Vista Bell-Shaped Storage Pit Volumes:
BVPits <- data.frame(Volume=c(1.23, 1.48, 1.55, 1.38, 1.10, 1.02, 1.29, 1.32, 1.35, 1.65, 1.39, 1.40, 1.12, 1.46, 1.24, 1.34, 1.21, 1.45, 1.51))

Buenos Aires Bell-Shaped Storage Pit Volumes:
BAPits <- data.frame(Volume=c(1.22, 1.64, 1.16, 1.07, 1.50, 1.84, 1.37, 1.15, 1.29, 1.32, 2.03, 1.17, 1.04, 1.43, 1.11, 1.40, 1.26))

Datasets - Drennan, Chapter 6
Information about 140 Pottery Sherds: Sherds.RData

Areas of Sites in Three Environmental Setting in the Study Area at Al-Amadiyah - AlAmadiyah.RData

Datasets - Drennan, Chapter 7
No data sets.

Datasets - Drennan, Chapter 8
Diameter Measurements for a Small Population of Post Holes:
Postholes <- c(10.4, 10.7, 11.1, 11.5, 11.6, 11.7, 12.2, 12.6, 12.9, 13.2, 13.7, 14.0, 14.3, 15.0, 16.4, 18.4, 20.3)

Datasets - Drennan, Chapter 9
Rim Diameter Measurements for a Sample of 25 Rim Sherds:
Rims <- c(7.3, 9.3, 11.6, 11.8, 12.2, 12.5, 12.9, 13.3, 13.4, 13.8, 14.0, 14.4, 14.8, 14.9, 15.6, 15.7, 15.8, 16.2, 16.5, 17.3, 17.7, 18.8, 19.4, 19.5, 21.0)

Weights of a Small Sample of Projectile Points:
PtWgt <- c(96, 37, 28, 34, 52, 18, 21, 39, 156, 43, 44, 19, 30, 108, 55, 24, 28, 47, 39, 31)

Lengths of 40 Utilized Flakes from Chateauneuf-sur-Loire:
CsLFlakes <- data.frame(Length=c(4.7, 4.1, 8.0, 3.2, 9.7, 7.5, 5.7, 5.0, 6.8, 6.2, 9.3, 6.9, 7.3, 4.5, 3.9, 5.4, 3.5, 6.0, 8.3, 5.5, 4.3, 4.8, 5.6, 6.1, 5.9, 7.8, 8.1, 4.3, 4.7, 3.0, 6.1, 5.1, 6.5, 8.8, 7.4, 8.5, 6.3, 7.0, 5.3, 2.6))

Diameters of 44 Mesolithic Hearths at Berwick-upon-Tweed:
BuTHearths <- data.frame(Diameter=c(0.91, 0.51, 0.76, 1.64, 0.85, 0.88, 0.72, 0.77, 0.69, 0.75, 0.80, 0.90, 0.58, 0.60, 0.70, 2.47, 0.84, 1.00, 1.03, 0.66, 0.76, 0.96, 0.74, 0.64, 0.62, 0.86, 0.84, 0.82, 0.93, 0.95, 0.56, 0.78, 0.89, 0.98, 1.08, 0.83, 2.13, 0.66, 0.62, 1.93, 0.68, 0.80, 0.74, 0.93))

Zinc Content of 14 Obsidian Blades from a Prehistoric House at Huancabamba:
HuancaBlades <- data.frame(Zinc=c(53, 37, 60, 49, 66, 55, 41, 33, 82, 59, 48, 22, 74, 57)

Datasets - Drennan, Chapter 10
Early and Late Classic Period Site Areas: EClassic.RData, LClassic.RData, Classic.RData

Datasets - Drennan, Chapter 11
Not data sets.

Datasets - Drennan, Chapter 12
Formative and Classic House Floors: HouseFloors.RData

Zirconium Content for a Sample of Gray and Black Obsidian ARtifacts from Ollantaytambo: Zirconium.RData

Datasets - Drennan, Chapter 13
Data on Weight and Period for a Sample of Archaic Period Projectile Points from the Cottonwood River Valley: ArchaicPts.RData

Data on House Floor Area for Five Sites Occupied During the Early, Middle, and Late Neolithic near Heiligenstadt: Neolithic.RData

Datasets - Drennan, Chapter 14
Regional Survey Data in Three Environmental Settings:
Survey <- data.frame(Setting=c(rep("Remnant levees", 19), rep("River bottoms", 12), rep("Slopes", 7)))

Temper and Surface Finish for Sherds from the Opelousas Site: OpSherds.RData

Datasets - Drennan, Chapter 15
Observations of Site Area and Number of Hoes in Collections of 100 Artifacts Made at Oasis Phase Sites in the Rio Seco Valley: RSHoes.RData

Data from Storage Pits at Yenangyaung: Yenang.RData

Datasets - Drennan, Chapter 16
Soil Productivity and Villages in teh Konsankoro Plain: KPNeolithic.RData

Floor Area and Artifact Status Index for 12 Excavated Houses from the Teixeira Site: Teixeira.RData

Datasets - Drennan, Chapter 17
No data sets.

Datasets - Drennan, Chapter 18
Sherds from a Random Sample of 10 Excavation Units:
Unit <- c("07", "18", "29", "31", "37", "56", "72", "83", "87", "91")
x <- c(10, 13, 16, 19, 17, 21, 18, 30, 19, 12)
y <- c(32, 27, 38, 73, 55, 41, 63, 81, 56, 34)
Random <- data.frame(Unit, x, y)

Lengths of Projectile Points from a Sample of 10 Excavation Units:
Unit <- c(7, 7, 7, 18, 29, 29, 31, 31, 31, 37, 37, 56, 72, 72, 72, 72, 72, 83, 87, 91, 91)
Length <- c(15, 19, 23, 17, 18, 23, 18, 18, 27, 18, 19, 24, 20, 21, 26, 28, 29, 16, 28, 25, 26)
Points <- data.frame(Unit, Length)

Datasets - Drennan, Chapter 19
No data sets.

Datasets - Drennan, Chapter 20
No data sets.

Datasets - Drennan, Chapter 21
A Multivariate Dataset on Households at Ixcaquixtla
Datasets - Drennan, Chapter 22
Measurements on Four Projectile Points:
Points<- data.frame(Length=c(4.3, 4.5, 4.4, 2.3), Width=c(1.2, 1.4, 1.1, 0.9), Thickness=c(0.35, 0.55, 0.37, 0.3), Weight=c(75, 80, 80, 75))

Some Presence/Absence Variables Coded for a Set of Seven Sherds:
Sherds <- data.frame(Slip=c("Present", "Absent", "Absent", "Present", "Present", "Present", "Present"), Red.Paint=c("Absent", "Present", "Present", "Absent", "Present", "Absent", "Absent"), Incising=c("Absent", "Present", "Absent", "Present", "Absent", "Present",  "Present"), Punctations=c("Absent", "Absent", "Absent", "Absent", "Present", "Absent", "Absent"), Quartz=c("Absent", "Absent", "Absent", "Absent", "Absent", "Present", "Present"), Mica=c("Absent", "Absent", "Present", "Present", "Absent", "Absent", "Absent"))

Datasets - Drennan, Chapter 23
Coordinates in Three Dimensions of the Multidimensional Scaling of Household Units from Ixcaquixtla: HHMDS.RData

Datasets - Drennan, Chapter 24
No data sets.

Datasets - Drennan, Chapter 25
Matrix of Similarity Coefficients for Seven Cases:
Example <- a<-structure(c(0.66, 0.05, 0.31, 0.13, 0.88, 0.14, 0.78, 0.96, 0.1,  0.85, 0.24, 0.89, 0.25, 0.63, 0.68, 0.37, 0.04, 0.41, 0.73, 0.57, 0.51), Size = 7L, class = "dist", Diag = FALSE, Upper = FALSE)

A Multivariate Dataset on Households at Ixcaquixtla (with MD scaling coordinates and principal components - Households3.RData