Data characterise rock art at 103 sites in the Pacific.
rockArtA data frame with 103 observations on the following 641 variables.
Site.No.a numeric vector
Site.Namea character vector
Site.Codea character vector
Districta character vector
Islanda character vector
Countrya character vector
Techniquea character vector
Engtecha character vector
reda numeric vector
blacka numeric vector
yellowa numeric vector
whitea numeric vector
greena numeric vector
red.blka numeric vector
red.wha numeric vector
red.yella numeric vector
r.w.ya numeric vector
black.whitea numeric vector
bluea numeric vector
Geologya character vector
Topographya character vector
Locationa character vector
Proxhab.km.a character vector
Proxcoast.km.a numeric vector
Maxheight.m.a numeric vector
Languagea character vector
No.motifa character vector
Ca1a numeric vector
Ca2a numeric vector
Ca3a numeric vector
Ca4a numeric vector
Cb5a numeric vector
Cb6a numeric vector
Cc7a numeric vector
Cc8a numeric vector
Cc9a numeric vector
Cc10a numeric vector
Cc11a numeric vector
Cc12a numeric vector
Cc13a numeric vector
Cc14a numeric vector
Cc15a numeric vector
Cc16a numeric vector
Cc17a numeric vector
Cc18a numeric vector
Cc19a numeric vector
Cc20a numeric vector
Cd21a numeric vector
Cd22a numeric vector
Cd23a numeric vector
Cd24a numeric vector
Cd25a numeric vector
Cd26a numeric vector
Cd27a numeric vector
Ce28a numeric vector
Ce29a numeric vector
Cf30a numeric vector
Cf31a numeric vector
Cf32a numeric vector
Cf33a numeric vector
Cf34a numeric vector
Cf35a numeric vector
Cf36a numeric vector
Cf37a numeric vector
Cf38a numeric vector
Cg39a numeric vector
Cg40a numeric vector
Ch41a numeric vector
Ch42a numeric vector
Ci43a numeric vector
Ci44a numeric vector
Cj45a numeric vector
Ck46a numeric vector
Ck47a numeric vector
Cl48a numeric vector
Cm49a numeric vector
Cm50a numeric vector
Cm51a numeric vector
Cm52a numeric vector
Cm53a numeric vector
Cm54a numeric vector
Cm55a numeric vector
Cm56a numeric vector
Cm57a numeric vector
Cm58a numeric vector
Cn59a numeric vector
Cn60a numeric vector
Cn61a numeric vector
Cn62a numeric vector
Cn63a numeric vector
Cn64a numeric vector
Cn65a numeric vector
Cn66a numeric vector
Cn67a numeric vector
Cn68a numeric vector
Cn69a numeric vector
Cn70a numeric vector
Cn71a numeric vector
Co72a numeric vector
Co73a numeric vector
Co74a numeric vector
Co75a numeric vector
Co76a numeric vector
Co77a numeric vector
Co78a numeric vector
Co79a numeric vector
Cp80a numeric vector
Cq81a numeric vector
Cq82a numeric vector
Cq83a numeric vector
Cq84a numeric vector
Cq85a numeric vector
Cq86a numeric vector
Cq87a numeric vector
Cq88a numeric vector
Cq89a numeric vector
Cq90a numeric vector
Cq91a numeric vector
Cq92a numeric vector
Cq93a numeric vector
Cq94a numeric vector
Cq95a numeric vector
Cq96a numeric vector
Cq97a numeric vector
Cr98a numeric vector
Cr99a numeric vector
Cr100a numeric vector
Cr101a numeric vector
Cs102a numeric vector
Cs103a numeric vector
Cs104a numeric vector
Cs105a numeric vector
Cs106a numeric vector
Ct107a numeric vector
C108a numeric vector
C109a numeric vector
C110a numeric vector
C111a numeric vector
SSa1a numeric vector
SSd2a numeric vector
SSd3a numeric vector
SSd4a numeric vector
SSd5a numeric vector
SSd6a numeric vector
SSd7a numeric vector
SSd8a numeric vector
SSf9a numeric vector
SSg10a numeric vector
SSj11a numeric vector
SSj12a numeric vector
SSj13a numeric vector
SSl14a numeric vector
SSm15a numeric vector
SSm16a numeric vector
SSn17a numeric vector
SSn18a numeric vector
SSn19a numeric vector
SSn20a numeric vector
SSn21a numeric vector
SSn22a numeric vector
SSn23a numeric vector
SSn24a numeric vector
SSn25a numeric vector
SSn26a numeric vector
SSn27a numeric vector
SSn28a numeric vector
SSn29a numeric vector
SSn30a numeric vector
SSn31a numeric vector
SSn32a numeric vector
SSn33a numeric vector
SSn34a numeric vector
SSn35a numeric vector
SSo36a numeric vector
SSo37a numeric vector
SSp38a numeric vector
SSq39a numeric vector
SSq40a numeric vector
SSt41a numeric vector
SSu42a numeric vector
Oa1a numeric vector
Oc2a numeric vector
Od3a numeric vector
Od4a numeric vector
Oe5a numeric vector
Of6a numeric vector
Of7a numeric vector
Of8a numeric vector
Of9a numeric vector
Og10a numeric vector
Og11a numeric vector
Og12a numeric vector
Og13a numeric vector
Og14a numeric vector
Og15a numeric vector
Oi16a numeric vector
Om17a numeric vector
Om18a numeric vector
Om19a numeric vector
Om20a numeric vector
Om21a numeric vector
On22a numeric vector
On23a numeric vector
On24a numeric vector
Oq25a numeric vector
Oq26a numeric vector
Oq27a numeric vector
.u28a numeric vector
Ov29a numeric vector
Ov30a numeric vector
O31a numeric vector
O32a numeric vector
O33a numeric vector
Sa1a numeric vector
Sb2a numeric vector
Sb3a numeric vector
Sd4a numeric vector
Sd5a numeric vector
Sd6a numeric vector
Sd7a numeric vector
Se8a numeric vector
Si9a numeric vector
Sm10a numeric vector
Sm11a numeric vector
S12a numeric vector
S13a numeric vector
Sx14a numeric vector
Sx15a numeric vector
Sx16a numeric vector
Sx17a numeric vector
Sy18a numeric vector
Sz19a numeric vector
S20a numeric vector
S21a numeric vector
S22a numeric vector
S23a numeric vector
S24a numeric vector
S25a numeric vector
SCd1a numeric vector
SCd2a numeric vector
SCd3a numeric vector
SCd4a numeric vector
SCd5a numeric vector
SCd6a numeric vector
SCd7a numeric vector
SCm8a numeric vector
SCn9a numeric vector
SCn10a numeric vector
SCw11a numeric vector
SCx12a numeric vector
SCx13a numeric vector
SCx14a numeric vector
SCx15a numeric vector
SCx16a numeric vector
SCy17a numeric vector
SCy18a numeric vector
SC19a numeric vector
SC20a numeric vector
SC21a numeric vector
SC22a numeric vector
SC23a numeric vector
SC24a numeric vector
SC25a numeric vector
SC26a numeric vector
SRd1a numeric vector
SRd2a numeric vector
SRd3a numeric vector
SRd4a numeric vector
SRf5a numeric vector
SRf6a numeric vector
SRf7a numeric vector
SRj8a numeric vector
SR9a numeric vector
SR10a numeric vector
Bd1a numeric vector
Bn2a numeric vector
Bn3a numeric vector
Bn4a numeric vector
Bt5a numeric vector
Bx6a numeric vector
Ha1a numeric vector
Hg2a numeric vector
Hn3a numeric vector
Hq4a numeric vector
Hq5a numeric vector
TDd1a numeric vector
TDf2a numeric vector
TDj3a numeric vector
TDn4a numeric vector
TDq5a numeric vector
TD6a numeric vector
TD7a numeric vector
TD8a numeric vector
TD9a numeric vector
Dc1a numeric vector
Dg2a numeric vector
Dh3a numeric vector
Dk4a numeric vector
Dm5a numeric vector
Dm6a numeric vector
D7a numeric vector
D8a numeric vector
D9a numeric vector
D10a numeric vector
D11a numeric vector
D12a numeric vector
D13a numeric vector
Ta1a numeric vector
Tc2a numeric vector
Tc3a numeric vector
Tc4a numeric vector
Td5a numeric vector
Tf6a numeric vector
Tf7a numeric vector
Tg8a numeric vector
Th9a numeric vector
To10a numeric vector
T11a numeric vector
T12a numeric vector
T13a numeric vector
T14a numeric vector
T15a numeric vector
T16a numeric vector
CNg1a numeric vector
CN2a numeric vector
CN3a numeric vector
CN4a numeric vector
CN5a numeric vector
CN6a numeric vector
CN7a numeric vector
CN8a numeric vector
Ld1a numeric vector
Lf2a numeric vector
Lg3a numeric vector
Lp4a numeric vector
L5a numeric vector
L6a numeric vector
L7a numeric vector
L8a numeric vector
L9a numeric vector
L10a numeric vector
L11a numeric vector
LS1a numeric vector
LS2a numeric vector
LL1a numeric vector
LL2a numeric vector
LL3a numeric vector
LL4a numeric vector
LL5a numeric vector
EGd1a numeric vector
EGf2a numeric vector
CCd1a numeric vector
CCn2a numeric vector
CCn3a numeric vector
EMc1a numeric vector
EMd2a numeric vector
EMd3a numeric vector
EMf4a numeric vector
EMf5a numeric vector
EMn6a numeric vector
EMx7a numeric vector
EM8a numeric vector
EM9a numeric vector
EM10a numeric vector
EM11a numeric vector
EM12a numeric vector
TE1a numeric vector
TE2a numeric vector
TE3a numeric vector
TE4a numeric vector
TE5a numeric vector
BWe1a numeric vector
BWn2a numeric vector
BWn3a numeric vector
TS1a numeric vector
TS2a numeric vector
TS3a numeric vector
TS4a numeric vector
TS5a numeric vector
TS6a numeric vector
TS7a numeric vector
TS8a numeric vector
TS9a numeric vector
Pg1a numeric vector
Pg2a numeric vector
Pg3a numeric vector
DUaa1a numeric vector
DUw2a numeric vector
DU3a numeric vector
CP1a numeric vector
CP2a numeric vector
CP3a numeric vector
CP4a numeric vector
CP5a numeric vector
CP6a numeric vector
CP7a numeric vector
CP8a numeric vector
CP9a numeric vector
CP10a numeric vector
CP11a numeric vector
CP12a numeric vector
STd1a numeric vector
STd2a numeric vector
STd3a numeric vector
STg4a numeric vector
STaa5a numeric vector
STaa6a numeric vector
STaa7a numeric vector
STaa8a numeric vector
ST9a numeric vector
ST10a numeric vector
ST11a numeric vector
ST12a numeric vector
Wd1a numeric vector
Wd2a numeric vector
Wd3a numeric vector
Wd4a numeric vector
Wn5a numeric vector
Waa6a numeric vector
Waa7a numeric vector
W8a numeric vector
W9a numeric vector
W10a numeric vector
W11a numeric vector
W12a numeric vector
W13a numeric vector
Zd1a numeric vector
Zd2a numeric vector
Zn3a numeric vector
Zw4a numeric vector
Zw5a numeric vector
Zaa6a numeric vector
Z7a numeric vector
Z8a numeric vector
Z9a numeric vector
Z10a numeric vector
Z11a numeric vector
Z12a numeric vector
CLd1a numeric vector
CLd2a numeric vector
CLd3a numeric vector
CLd4a numeric vector
CLd5a numeric vector
CLd6a numeric vector
CLd7a numeric vector
CLd8a numeric vector
CLd9a numeric vector
CLd10a numeric vector
CLd11a numeric vector
CLd12a numeric vector
CLd13a numeric vector
CLd14a numeric vector
CLd15a numeric vector
CLd16a numeric vector
CLd17a numeric vector
CLd18a numeric vector
CLd19a numeric vector
CLd20a numeric vector
CLd21a numeric vector
CLd22a numeric vector
CLd23a numeric vector
CLd24a numeric vector
CLd25a numeric vector
CLd26a numeric vector
CLd27a numeric vector
CLd28a numeric vector
CLd29a numeric vector
CLd30a numeric vector
CLd31a numeric vector
CLd32a numeric vector
CLd33a numeric vector
CLd34a numeric vector
CLd35a numeric vector
CLd36a numeric vector
CLd37a numeric vector
CLd38a numeric vector
CLn39a numeric vector
CLn40a numeric vector
CLn41a numeric vector
CLn42a numeric vector
CLn43a numeric vector
CLn44a numeric vector
CLn45a numeric vector
CLn46a numeric vector
CLn47a numeric vector
CLn48a numeric vector
CLw49a numeric vector
CL50a numeric vector
CL51a numeric vector
CL52a numeric vector
CL53a numeric vector
CL54a numeric vector
CL55a numeric vector
CL56a numeric vector
CL57a numeric vector
CL58a numeric vector
CL59a numeric vector
Xd1a numeric vector
Xd2a numeric vector
Xd3a numeric vector
Xd4a numeric vector
Xd5a numeric vector
Xd6a numeric vector
Xd7a numeric vector
Xd8a numeric vector
Xd9a numeric vector
Xd10a numeric vector
Xd11a numeric vector
Xd12a numeric vector
Xd13a numeric vector
Xf14a numeric vector
Xk15a numeric vector
Xn16a numeric vector
Xn17a numeric vector
Xn18a numeric vector
Xn19a numeric vector
Xn20a numeric vector
Xn21a numeric vector
Xn22a numeric vector
Xn23a numeric vector
Xn24a numeric vector
Xn25a numeric vector
Xn26a numeric vector
Xn27a numeric vector
Xn28a numeric vector
Xn29a numeric vector
Xn30a numeric vector
Xn31a numeric vector
Xn32a numeric vector
Xp33a numeric vector
Xp34a numeric vector
Xp35a numeric vector
Xq36a numeric vector
Xq37a numeric vector
Xq38a numeric vector
X39a numeric vector
X40a numeric vector
X41a numeric vector
X42a numeric vector
X43a numeric vector
X44a numeric vector
X45a numeric vector
X46a numeric vector
X47a numeric vector
X48a numeric vector
X49a numeric vector
X50a numeric vector
Qd1a numeric vector
Qe2a numeric vector
Qe3a numeric vector
Qh4a numeric vector
Qh5a numeric vector
Qh6a numeric vector
Qh7a numeric vector
Qh8a numeric vector
Qh9a numeric vector
Qn10a numeric vector
Qn11a numeric vector
Qt12a numeric vector
Q13a numeric vector
Q14a numeric vector
Q15a numeric vector
Q16a numeric vector
Q17a numeric vector
Q18a numeric vector
Q19a numeric vector
Q20a numeric vector
Q21a numeric vector
Q22a numeric vector
TZd1a numeric vector
TZf2a numeric vector
TZh3a numeric vector
TZ4a numeric vector
CRd1a numeric vector
CR2a numeric vector
CR3a numeric vector
EUd1a numeric vector
EUd2a numeric vector
EUg3a numeric vector
EUm4a numeric vector
EUw5a numeric vector
EU6a numeric vector
Ud1a numeric vector
Ud2a numeric vector
Ud3a numeric vector
Uaa4a numeric vector
U5a numeric vector
Vd1a numeric vector
V2a numeric vector
V3a numeric vector
V4a numeric vector
V5a numeric vector
LWE1a numeric vector
LWE2a numeric vector
Ad1a numeric vector
Al2a numeric vector
Am3a numeric vector
An4a numeric vector
Aw5a numeric vector
Aaa6a numeric vector
A7a numeric vector
A8a numeric vector
A9a numeric vector
EVd1a numeric vector
EVg2a numeric vector
TK1a numeric vector
ECL1a numeric vector
EFe1a numeric vector
EFm2a numeric vector
EFm3a numeric vector
EF4a numeric vector
LPo1a numeric vector
LPq2a numeric vector
LP3a numeric vector
LP4a numeric vector
LP5a numeric vector
PT1a numeric vector
CSCa numeric vector
CSRa numeric vector
CCRCa numeric vector
SAa numeric vector
Anthropa numeric vector
Turtlea numeric vector
Boata numeric vector
Canoea numeric vector
Handa numeric vector
Foota numeric vector
Lizarda numeric vector
Crocodilea numeric vector
Jellyfisha numeric vector
Birda numeric vector
Anthrobirda numeric vector
Axea numeric vector
Marinea numeric vector
Facea numeric vector
Zoo1a numeric vector
Zoo2a numeric vector
Zoo3a numeric vector
Zoo4a numeric vector
Zoo5a numeric vector
Zoo6a numeric vector
Note the vignette rockArt.
Meredith Wilson: Rethinking regional analyses of Western Pacific rock-art. Records of the Australian Museum, Supplement 29: 173-186.
data(rockArt)
rockart.dist <- dist(x = as.matrix(rockArt[, 28:641]), method = "binary")
sum(rockart.dist==1)/length(rockart.dist)
plot(density(rockart.dist, to = 1))
rockart.cmd <- cmdscale(rockart.dist)
tab <- table(rockArt$District)
district <- as.character(rockArt$District)
district[!(rockArt$District %in% names(tab)[tab>5])] <- "other"
if (FALSE) {
xyplot(rockart.cmd[,2] ~ rockart.cmd[,1], groups=district,
auto.key=list(columns=5),
par.settings=list(superpose.symbol=list(pch=16)))
library(MASS)
## For sammon, need to avoid zero distances
omit <- c(47, 54, 60, 63, 92)
rockart.dist <- dist(x = as.matrix(rockArt[-omit, 28:641]), method = "binary")
rockart.cmd <- cmdscale(rockart.dist)
rockart.sam <- sammon(rockart.dist, rockart.cmd)
xyplot(rockart.sam$points[,2] ~ rockart.sam$points[,1],
groups=district[-omit], auto.key=list(columns=5),
par.settings=list(superpose.symbol=list(pch=16)))
## Notice the very different appearance of the Sammon plot
}
Run the code above in your browser using DataLab