data-raw/stuchlik.R
In anespinosa/classicnets: classicnets: Classic Data of Social Networks
##### Mapuches in Coipuco, Chile (1968-70) ####
##### I. Kindship and intensity of it ####
kin <- matrix(c(0,1,1,2,2,1,0,2,2,2,3,0,0,0,1,2,1,0,0,0,0,0,2,0,0,0,0,0,
1,0,1,0,0,2,2,2,2,2,3,0,0,0,2,1,1,0,0,2,2,0,2,2,2,0,2,0,
1,1,0,0,3,2,2,2,2,2,3,0,0,3,2,3,3,2,0,0,0,0,2,2,2,3,3,0,
2,0,2,0,1,3,3,3,3,3,1,1,3,1,3,3,3,3,3,2,2,3,2,1,1,1,1,1,
2,0,3,1,0,1,0,3,0,3,1,1,0,1,2,2,2,0,0,0,0,0,0,1,1,0,1,0,
1,2,2,3,3,0,1,1,1,2,1,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,2,2,1,0,1,0,1,1,1,1,1,2,2,2,2,3,2,3,3,3,3,3,1,1,3,3,3,
2,2,2,3,2,1,1,0,1,1,1,1,3,3,2,2,2,2,3,3,3,3,3,1,1,0,0,1,
2,2,2,3,0,1,1,1,0,1,1,1,2,0,2,0,0,0,2,2,2,2,0,1,1,0,1,0,
2,2,2,3,3,1,1,1,1,0,1,1,3,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,3,3,2,2,1,1,1,1,1,0,1,0,2,2,2,2,0,1,1,1,1,0,2,2,0,3,1,
0,0,0,2,2,1,1,1,1,1,0,0,0,2,2,2,2,0,1,1,1,1,0,2,2,0,3,1,
0,0,3,0,0,3,3,0,3,3,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,1,0,2,2,2,0,2,2,2,2,0,2,2,2,1,0,2,1,3,0,2,2,0,0,2,
1,2,2,3,0,2,2,3,2,2,2,2,3,2,0,1,1,1,3,0,0,0,0,2,2,0,3,2,
2,1,3,1,1,3,3,1,1,0,2,2,0,2,1,0,1,3,2,0,2,2,0,1,1,3,3,1,
1,1,1,3,2,3,3,0,2,2,0,0,3,2,1,1,0,1,3,3,3,3,0,2,2,3,0,2,
0,0,3,3,0,0,0,3,3,3,0,0,3,2,2,3,1,0,0,0,0,3,0,0,0,0,0,0,
0,2,3,0,3,3,0,3,2,3,0,0,3,0,3,2,3,3,0,1,1,1,0,3,3,3,3,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,0,3,0,1,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,3,2,3,1,1,0,1,0,0,3,0,0,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,3,2,3,1,1,0,0,0,0,3,0,0,0,
2,2,2,0,1,3,3,0,2,3,1,1,0,1,3,3,2,3,1,1,1,1,0,1,1,3,2,0,
0,0,0,0,0,0,0,2,3,0,0,0,0,0,0,0,2,0,3,2,0,2,0,0,1,2,0,0,
0,2,2,1,1,0,2,0,3,2,0,2,0,2,3,1,2,0,3,3,3,1,0,1,0,0,1,0,
0,0,3,0,0,0,3,0,0,0,0,0,0,0,0,3,3,0,3,0,0,0,0,2,0,0,3,0,
0,2,3,2,2,0,3,0,3,0,3,3,0,0,3,3,0,0,3,3,0,3,0,1,1,3,0,0,
0,0,0,0,0,0,3,1,0,0,1,1,0,2,2,1,2,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=28)
label <- c("MANQUEPI_HUENCHULEO","HUENCHUMAN_CARLOS","HUENCHUAN_MANQUEPI",
"CAYUL_PAINE","CAYUL_JUAN","TRANAMIL_JUAN",
"TRANAMIL_DANIEL", "MILLAREAL_ANTONIO", "MILLAREAL_AGUSTIN",
"MILLAREAL_JULIO", "CURIHUAL_PAINE", "CURIHUAL_JUAN",
"ALCAPAN_JUAN", "MILLAR_LUIS", "BARRA_CARLOS",
"CAYUL_CARMEN", "BARRA_AUGUSTINA", "BARRA_SERAFINA",
"CAYUL_AGUSTIN", "CAYUL_SEGUNDO", "CAYUL_MANUEL",
"CAYUL_ALARCON", "CAYUL_FRANCISCO", "CAYUL_ANTONIO",
"CAYUL_COCHE", "CARIQUEO_DOMINGO", "CAYUL_JACINTO",
"CURIHUAL HIPOLITO")
colnames(kin) <- label
rownames(kin) <- label
reservations <- c("I", "I", "I", "II","II",
"II", "II", "II", "II", "II",
"II", "II", "III", "III", "III",
"IV", "IV", "V", "V", "V",
"V", "V", "V", "VI", "VI",
"VI", "VI", "VI")
intensity <- matrix(c(0,2,2,2,2,2,3,2,2,2,4,0,0,0,3,2,2,3,0,0,0,3,3,0,0,0,0,0,
2,0,1,2,0,2,2,2,2,2,4,0,3,0,2,2,2,0,3,3,2,2,3,3,2,2,2,0,
2,1,0,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2,0,2,2,3,3,2,2,2,0,
2,2,2,0,1,2,2,1,1,3,3,3,2,2,2,1,1,2,2,2,2,3,2,2,2,2,2,2,
2,0,2,1,0,3,3,4,0,2,2,2,0,2,3,2,2,0,3,0,2,0,2,2,2,0,2,0,
2,2,2,2,2,0,1,2,2,3,2,2,2,2,1,4,4,0,0,0,0,0,0,0,0,0,0,0,
2,2,2,2,3,1,0,2,2,2,2,2,2,2,1,4,4,2,2,2,2,2,2,2,2,3,3,3,
2,2,2,1,2,2,2,0,1,2,2,2,4,2,2,2,2,2,1,1,1,2,2,3,2,3,3,3,
2,2,2,1,4,2,2,1,0,2,2,2,2,0,2,0,0,0,2,2,2,2,2,2,2,3,2,0,
2,2,2,3,2,3,2,2,2,0,2,2,2,2,3,0,2,3,2,0,3,2,2,0,0,0,3,0,
4,4,4,3,2,2,2,2,2,2,0,1,3,1,3,2,2,0,2,3,2,2,2,3,2,0,3,2,
4,0,2,3,2,2,2,2,2,2,1,0,3,1,2,2,0,0,0,0,0,0,2,3,0,0,3,2,
0,3,2,2,0,2,2,4,2,2,3,3,0,2,1,2,2,3,2,0,3,2,2,3,3,0,0,0,
0,0,2,2,3,2,2,2,2,2,1,1,2,0,2,2,2,2,3,2,2,3,2,3,3,0,0,0,
3,2,2,2,3,1,1,2,3,3,2,2,1,2,0,1,1,3,2,3,0,3,2,2,3,0,3,3,
2,2,3,2,2,2,2,2,2,3,2,2,2,2,1,0,1,4,2,0,2,2,2,2,2,2,2,3,
2,2,3,2,2,2,2,2,2,2,0,0,2,2,1,1,0,2,2,2,2,2,2,2,3,2,3,3,
0,0,2,2,0,0,0,0,3,3,0,0,3,2,3,4,2,0,4,0,0,2,2,0,0,0,0,0,
3,3,2,2,2,3,3,1,0,2,0,0,2,2,2,2,2,4,0,2,1,1,2,1,1,2,2,0,
0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,4,0,2,0,1,2,2,0,0,0,0,0,
0,0,0,0,0,0,0,1,2,3,0,0,0,0,0,2,2,2,1,1,0,1,2,2,2,2,2,2,
3,3,2,2,2,2,0,2,2,2,0,0,2,3,3,2,2,4,1,4,1,0,2,2,2,2,2,0,
3,2,2,2,2,2,2,2,2,2,2,2,2,1,0,2,2,2,2,2,2,2,0,2,2,3,2,0,
0,0,0,0,0,2,0,0,2,0,0,0,0,0,3,3,2,0,1,2,2,2,2,0,1,2,2,0,
0,2,2,2,2,0,2,2,2,0,2,0,3,3,3,2,3,0,1,0,2,2,2,1,0,2,2,3,
0,2,2,2,0,0,3,3,3,0,0,0,0,0,0,2,2,0,2,0,2,2,3,2,2,0,1,3,
0,0,0,0,3,2,2,2,2,3,3,3,0,0,0,2,2,0,2,2,2,2,2,2,2,1,0,3,
0,0,0,2,0,0,3,3,0,0,2,2,0,0,3,3,3,0,0,0,2,0,0,0,3,3,3,0),
byrow=TRUE, ncol=28)
colnames(intensity) <- label
rownames(intensity) <- label
kin_mapuche <- list(kin=kin,
reservations=reservations,
intensity=intensity)
usethis::use_data(kin_mapuche, overwrite = TRUE)
##### II. Daily activities ####
##### III. Labor sphere ####
labor_owener <- matrix(c(2,1,1,2,1,0,0,0,0,0,0,0,0,0,0,
2,0,1,0,0,0,5,3,0,0,0,0,0,1,0,
0,1,0,0,0,0,1,0,0,2,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,1,0,0,0,0,0,1,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,0,0,0,1,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,1,0,3,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=15)
label_labor <- c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
"11", "12", "13", "14", "15")
colnames(labor_owener) <- label_labor
rownames(labor_owener) <- label
labor_wp <- matrix(c(0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,
2,2,0,0,1,0,0,0,0,1,0,0,0,0,0,
2,1,1,1,1,0,2,0,1,1,0,0,0,0,0,
4,0,1,0,1,0,1,0,0,1,0,0,0,1,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,1,0,1,1,0,0,1,0,0,0,0,0,
1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,1,0,0,0,0,0,0,1,0,
1,0,1,1,2,0,0,0,0,0,1,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=15)
colnames(labor_wp) <- label_labor
rownames(labor_wp) <- label
labor_mapuche <- list(labor_owener=labor_owener,
labor_wp=labor_wp)
usethis::use_data(labor_mapuche, overwrite = TRUE)
##### V. Mutual participation in Mingaco ####
participation <- matrix(c(1,2,0,0,2,0,0,0,
2,0,0,0,2,0,0,0,
2,2,0,0,0,0,2,0,
2,0,0,0,0,0,2,0,
2,2,0,0,2,0,2,0,
2,2,0,0,2,0,0,0,
2,2,0,0,1,0,0,0,
2,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,
2,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,
2,0,0,0,2,0,0,0,
2,0,0,0,2,0,0,0,
2,0,0,0,0,1,0,0,
0,0,0,0,0,2,0,0,
2,0,0,0,0,2,0,0,
0,0,0,0,0,2,0,0,
2,0,0,0,0,2,0,0,
2,0,0,0,2,0,0,0,
0,1,1,2,0,0,0,0,
0,0,0,1,0,0,0,0,
0,0,0,2,0,0,0,0,
0,0,0,0,0,0,1,1,
0,0,0,0,0,2,0,0), byrow=TRUE, ncol=8)
labelVcolumn <- c("D. TRANAMIL", "C. HUENCHUMAN 1", "C. HUENCHUMAN 2",
"SEGUNDO HUENCHUMAN", "JULIO MILLAREAL", "HUENCHU ALARCON",
"JUAN ALCAPAN 1", "JUAN ALCAPAN 2")
labelVfile <- c("DANIEL TRANAMIL", "SO REMIGIO", "JUAN TRANAMIL", "SO JULIO",
"ANTONIO MILLAREAL", "AGUSTIN MILLAREAL", "JULIO MILLAREAL",
"PAINE CAYUL", "JUAN CAYUL", "HUENCHULEO MANQUEPI",
"BR HUNECHUMAN", "JUAN CURIHUAL", "PAINE CURIHUAL",
"HUENCHU ALARCON", "BR PEDRO", "LUIS MILLAR", "BR ANTONIO",
"JUAN BARRA", "CARLOS BARRA", "CARLOS HUENCHUMAN",
"SEGUNDO & MANQUEPI HUENCHUMAN", "IGNACIO QUINELEU",
"JUAN ALCAPAN", "AGUSTIN CAYUL")
colnames(participation) <- labelVcolumn
rownames(participation) <- labelVfile
participation_mapuche <- list(participation=participation)
usethis::use_data(participation_mapuche, overwrite = TRUE)
##### VI. Vuelta mano and informal help between them ####
informalhelp<-matrix(c(0,0,0,0,0,0,0,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,3,3,0,0,0,3,3,0,0,0,0,0,3,0,0,0,0,3,0,0,0,0,0,
0,2,0,3,3,0,0,0,0,0,3,3,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,0,2,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,2,0,3,0,0,0,0,0,0,1,3,0,0,0,0,0,0,0,0,0,0,0,0,
3,0,0,3,0,0,3,0,2,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,3,0,0,0,3,0,0,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,3,0,0,0,0,0,0,0,3,0,2,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,0,0,0,0,3,2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,3,
0,0,0,0,0,0,0,0,0,0,3,3,0,0,2,0,0,3,0,0,0,0,0,0,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,3,3,0,0,1,0,3,1,0,0,0,0,0,0,3,0,0,3,
0,0,1,0,0,3,1,0,0,0,0,0,2,1,0,0,0,3,0,1,3,0,1,0,3,0,0,0,
0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,3,0,0,0,3,3,0,0,0,0,3,0,2,0,0,3,0,0,0,0,0,0,0,0,3,
0,3,0,0,0,0,0,0,0,0,0,0,3,1,3,0,0,0,3,3,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,2,2,0,0,0,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,3,2,0,2,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,0,0,0,2,2,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,3,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,2,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,0,0,0,0,0,0,3,0,0,
0,0,0,0,0,0,0,0,0,0,0,3,0,3,0,0,3,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=28)
colnames(informalhelp) <- label
rownames(informalhelp) <- label
informalhelp_mapuche <- list(informalhelp=informalhelp)
usethis::use_data(informalhelp_mapuche, overwrite = TRUE)
anespinosa/classicnets documentation built on May 31, 2022, 8:35 p.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
##### Mapuches in Coipuco, Chile (1968-70) ####
##### I. Kindship and intensity of it ####
kin <- matrix(c(0,1,1,2,2,1,0,2,2,2,3,0,0,0,1,2,1,0,0,0,0,0,2,0,0,0,0,0,
1,0,1,0,0,2,2,2,2,2,3,0,0,0,2,1,1,0,0,2,2,0,2,2,2,0,2,0,
1,1,0,0,3,2,2,2,2,2,3,0,0,3,2,3,3,2,0,0,0,0,2,2,2,3,3,0,
2,0,2,0,1,3,3,3,3,3,1,1,3,1,3,3,3,3,3,2,2,3,2,1,1,1,1,1,
2,0,3,1,0,1,0,3,0,3,1,1,0,1,2,2,2,0,0,0,0,0,0,1,1,0,1,0,
1,2,2,3,3,0,1,1,1,2,1,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,2,2,1,0,1,0,1,1,1,1,1,2,2,2,2,3,2,3,3,3,3,3,1,1,3,3,3,
2,2,2,3,2,1,1,0,1,1,1,1,3,3,2,2,2,2,3,3,3,3,3,1,1,0,0,1,
2,2,2,3,0,1,1,1,0,1,1,1,2,0,2,0,0,0,2,2,2,2,0,1,1,0,1,0,
2,2,2,3,3,1,1,1,1,0,1,1,3,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,3,3,2,2,1,1,1,1,1,0,1,0,2,2,2,2,0,1,1,1,1,0,2,2,0,3,1,
0,0,0,2,2,1,1,1,1,1,0,0,0,2,2,2,2,0,1,1,1,1,0,2,2,0,3,1,
0,0,3,0,0,3,3,0,3,3,0,0,0,3,3,3,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,1,0,2,2,2,0,2,2,2,2,0,2,2,2,1,0,2,1,3,0,2,2,0,0,2,
1,2,2,3,0,2,2,3,2,2,2,2,3,2,0,1,1,1,3,0,0,0,0,2,2,0,3,2,
2,1,3,1,1,3,3,1,1,0,2,2,0,2,1,0,1,3,2,0,2,2,0,1,1,3,3,1,
1,1,1,3,2,3,3,0,2,2,0,0,3,2,1,1,0,1,3,3,3,3,0,2,2,3,0,2,
0,0,3,3,0,0,0,3,3,3,0,0,3,2,2,3,1,0,0,0,0,3,0,0,0,0,0,0,
0,2,3,0,3,3,0,3,2,3,0,0,3,0,3,2,3,3,0,1,1,1,0,3,3,3,3,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,0,3,0,1,0,1,1,0,0,0,0,0,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,3,2,3,1,1,0,1,0,0,3,0,0,0,
0,0,0,0,0,0,0,3,2,0,0,0,0,0,0,3,2,3,1,1,0,0,0,0,3,0,0,0,
2,2,2,0,1,3,3,0,2,3,1,1,0,1,3,3,2,3,1,1,1,1,0,1,1,3,2,0,
0,0,0,0,0,0,0,2,3,0,0,0,0,0,0,0,2,0,3,2,0,2,0,0,1,2,0,0,
0,2,2,1,1,0,2,0,3,2,0,2,0,2,3,1,2,0,3,3,3,1,0,1,0,0,1,0,
0,0,3,0,0,0,3,0,0,0,0,0,0,0,0,3,3,0,3,0,0,0,0,2,0,0,3,0,
0,2,3,2,2,0,3,0,3,0,3,3,0,0,3,3,0,0,3,3,0,3,0,1,1,3,0,0,
0,0,0,0,0,0,3,1,0,0,1,1,0,2,2,1,2,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=28)
label <- c("MANQUEPI_HUENCHULEO","HUENCHUMAN_CARLOS","HUENCHUAN_MANQUEPI",
"CAYUL_PAINE","CAYUL_JUAN","TRANAMIL_JUAN",
"TRANAMIL_DANIEL", "MILLAREAL_ANTONIO", "MILLAREAL_AGUSTIN",
"MILLAREAL_JULIO", "CURIHUAL_PAINE", "CURIHUAL_JUAN",
"ALCAPAN_JUAN", "MILLAR_LUIS", "BARRA_CARLOS",
"CAYUL_CARMEN", "BARRA_AUGUSTINA", "BARRA_SERAFINA",
"CAYUL_AGUSTIN", "CAYUL_SEGUNDO", "CAYUL_MANUEL",
"CAYUL_ALARCON", "CAYUL_FRANCISCO", "CAYUL_ANTONIO",
"CAYUL_COCHE", "CARIQUEO_DOMINGO", "CAYUL_JACINTO",
"CURIHUAL HIPOLITO")
colnames(kin) <- label
rownames(kin) <- label
reservations <- c("I", "I", "I", "II","II",
"II", "II", "II", "II", "II",
"II", "II", "III", "III", "III",
"IV", "IV", "V", "V", "V",
"V", "V", "V", "VI", "VI",
"VI", "VI", "VI")
intensity <- matrix(c(0,2,2,2,2,2,3,2,2,2,4,0,0,0,3,2,2,3,0,0,0,3,3,0,0,0,0,0,
2,0,1,2,0,2,2,2,2,2,4,0,3,0,2,2,2,0,3,3,2,2,3,3,2,2,2,0,
2,1,0,2,2,2,2,2,2,2,4,2,2,2,2,2,2,2,2,0,2,2,3,3,2,2,2,0,
2,2,2,0,1,2,2,1,1,3,3,3,2,2,2,1,1,2,2,2,2,3,2,2,2,2,2,2,
2,0,2,1,0,3,3,4,0,2,2,2,0,2,3,2,2,0,3,0,2,0,2,2,2,0,2,0,
2,2,2,2,2,0,1,2,2,3,2,2,2,2,1,4,4,0,0,0,0,0,0,0,0,0,0,0,
2,2,2,2,3,1,0,2,2,2,2,2,2,2,1,4,4,2,2,2,2,2,2,2,2,3,3,3,
2,2,2,1,2,2,2,0,1,2,2,2,4,2,2,2,2,2,1,1,1,2,2,3,2,3,3,3,
2,2,2,1,4,2,2,1,0,2,2,2,2,0,2,0,0,0,2,2,2,2,2,2,2,3,2,0,
2,2,2,3,2,3,2,2,2,0,2,2,2,2,3,0,2,3,2,0,3,2,2,0,0,0,3,0,
4,4,4,3,2,2,2,2,2,2,0,1,3,1,3,2,2,0,2,3,2,2,2,3,2,0,3,2,
4,0,2,3,2,2,2,2,2,2,1,0,3,1,2,2,0,0,0,0,0,0,2,3,0,0,3,2,
0,3,2,2,0,2,2,4,2,2,3,3,0,2,1,2,2,3,2,0,3,2,2,3,3,0,0,0,
0,0,2,2,3,2,2,2,2,2,1,1,2,0,2,2,2,2,3,2,2,3,2,3,3,0,0,0,
3,2,2,2,3,1,1,2,3,3,2,2,1,2,0,1,1,3,2,3,0,3,2,2,3,0,3,3,
2,2,3,2,2,2,2,2,2,3,2,2,2,2,1,0,1,4,2,0,2,2,2,2,2,2,2,3,
2,2,3,2,2,2,2,2,2,2,0,0,2,2,1,1,0,2,2,2,2,2,2,2,3,2,3,3,
0,0,2,2,0,0,0,0,3,3,0,0,3,2,3,4,2,0,4,0,0,2,2,0,0,0,0,0,
3,3,2,2,2,3,3,1,0,2,0,0,2,2,2,2,2,4,0,2,1,1,2,1,1,2,2,0,
0,0,0,0,0,0,0,2,2,0,0,0,0,0,0,0,4,0,2,0,1,2,2,0,0,0,0,0,
0,0,0,0,0,0,0,1,2,3,0,0,0,0,0,2,2,2,1,1,0,1,2,2,2,2,2,2,
3,3,2,2,2,2,0,2,2,2,0,0,2,3,3,2,2,4,1,4,1,0,2,2,2,2,2,0,
3,2,2,2,2,2,2,2,2,2,2,2,2,1,0,2,2,2,2,2,2,2,0,2,2,3,2,0,
0,0,0,0,0,2,0,0,2,0,0,0,0,0,3,3,2,0,1,2,2,2,2,0,1,2,2,0,
0,2,2,2,2,0,2,2,2,0,2,0,3,3,3,2,3,0,1,0,2,2,2,1,0,2,2,3,
0,2,2,2,0,0,3,3,3,0,0,0,0,0,0,2,2,0,2,0,2,2,3,2,2,0,1,3,
0,0,0,0,3,2,2,2,2,3,3,3,0,0,0,2,2,0,2,2,2,2,2,2,2,1,0,3,
0,0,0,2,0,0,3,3,0,0,2,2,0,0,3,3,3,0,0,0,2,0,0,0,3,3,3,0),
byrow=TRUE, ncol=28)
colnames(intensity) <- label
rownames(intensity) <- label
kin_mapuche <- list(kin=kin,
reservations=reservations,
intensity=intensity)
usethis::use_data(kin_mapuche, overwrite = TRUE)
##### II. Daily activities ####
##### III. Labor sphere ####
labor_owener <- matrix(c(2,1,1,2,1,0,0,0,0,0,0,0,0,0,0,
2,0,1,0,0,0,5,3,0,0,0,0,0,1,0,
0,1,0,0,0,0,1,0,0,2,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,0,1,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,1,0,0,0,0,0,1,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,0,0,0,1,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,1,0,3,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=15)
label_labor <- c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
"11", "12", "13", "14", "15")
colnames(labor_owener) <- label_labor
rownames(labor_owener) <- label
labor_wp <- matrix(c(0,1,0,0,0,0,0,1,0,0,0,0,0,0,0,
2,2,0,0,1,0,0,0,0,1,0,0,0,0,0,
2,1,1,1,1,0,2,0,1,1,0,0,0,0,0,
4,0,1,0,1,0,1,0,0,1,0,0,0,1,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,1,0,1,1,0,0,1,0,0,0,0,0,
1,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
2,0,0,0,0,0,1,0,0,0,0,0,0,1,0,
1,0,1,1,2,0,0,0,0,0,1,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
1,0,0,0,0,1,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,1,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,1,0,0,0,0,0,0,0,0,
0,0,0,0,1,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=15)
colnames(labor_wp) <- label_labor
rownames(labor_wp) <- label
labor_mapuche <- list(labor_owener=labor_owener,
labor_wp=labor_wp)
usethis::use_data(labor_mapuche, overwrite = TRUE)
##### V. Mutual participation in Mingaco ####
participation <- matrix(c(1,2,0,0,2,0,0,0,
2,0,0,0,2,0,0,0,
2,2,0,0,0,0,2,0,
2,0,0,0,0,0,2,0,
2,2,0,0,2,0,2,0,
2,2,0,0,2,0,0,0,
2,2,0,0,1,0,0,0,
2,0,0,0,0,0,0,0,
0,0,2,0,0,0,0,0,
2,0,0,0,0,0,0,0,
2,0,0,0,0,0,0,0,
2,0,0,0,2,0,0,0,
2,0,0,0,2,0,0,0,
2,0,0,0,0,1,0,0,
0,0,0,0,0,2,0,0,
2,0,0,0,0,2,0,0,
0,0,0,0,0,2,0,0,
2,0,0,0,0,2,0,0,
2,0,0,0,2,0,0,0,
0,1,1,2,0,0,0,0,
0,0,0,1,0,0,0,0,
0,0,0,2,0,0,0,0,
0,0,0,0,0,0,1,1,
0,0,0,0,0,2,0,0), byrow=TRUE, ncol=8)
labelVcolumn <- c("D. TRANAMIL", "C. HUENCHUMAN 1", "C. HUENCHUMAN 2",
"SEGUNDO HUENCHUMAN", "JULIO MILLAREAL", "HUENCHU ALARCON",
"JUAN ALCAPAN 1", "JUAN ALCAPAN 2")
labelVfile <- c("DANIEL TRANAMIL", "SO REMIGIO", "JUAN TRANAMIL", "SO JULIO",
"ANTONIO MILLAREAL", "AGUSTIN MILLAREAL", "JULIO MILLAREAL",
"PAINE CAYUL", "JUAN CAYUL", "HUENCHULEO MANQUEPI",
"BR HUNECHUMAN", "JUAN CURIHUAL", "PAINE CURIHUAL",
"HUENCHU ALARCON", "BR PEDRO", "LUIS MILLAR", "BR ANTONIO",
"JUAN BARRA", "CARLOS BARRA", "CARLOS HUENCHUMAN",
"SEGUNDO & MANQUEPI HUENCHUMAN", "IGNACIO QUINELEU",
"JUAN ALCAPAN", "AGUSTIN CAYUL")
colnames(participation) <- labelVcolumn
rownames(participation) <- labelVfile
participation_mapuche <- list(participation=participation)
usethis::use_data(participation_mapuche, overwrite = TRUE)
##### VI. Vuelta mano and informal help between them ####
informalhelp<-matrix(c(0,0,0,0,0,0,0,3,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,2,0,0,3,3,0,0,0,3,3,0,0,0,0,0,3,0,0,0,0,3,0,0,0,0,0,
0,2,0,3,3,0,0,0,0,0,3,3,0,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,0,2,0,0,3,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,3,2,0,1,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,1,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,2,0,3,0,0,0,0,0,0,1,3,0,0,0,0,0,0,0,0,0,0,0,0,
3,0,0,3,0,0,3,0,2,0,0,0,0,0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,3,0,0,0,3,0,0,0,0,0,0,0,
3,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
3,3,0,0,0,0,0,0,0,3,0,2,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,0,0,0,0,3,2,0,3,3,0,0,0,0,0,0,0,0,0,0,0,0,0,3,
0,0,0,0,0,0,0,0,0,0,3,3,0,0,2,0,0,3,0,0,0,0,0,0,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,3,3,0,0,1,0,3,1,0,0,0,0,0,0,3,0,0,3,
0,0,1,0,0,3,1,0,0,0,0,0,2,1,0,0,0,3,0,1,3,0,1,0,3,0,0,0,
0,0,0,3,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,
0,0,0,3,0,0,0,3,3,0,0,0,0,3,0,2,0,0,3,0,0,0,0,0,0,0,0,3,
0,3,0,0,0,0,0,0,0,0,0,0,3,1,3,0,0,0,3,3,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,2,2,0,0,0,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,3,2,0,2,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,0,0,0,2,2,0,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,3,0,0,0,0,0,0,0,0,0,0,0,0,1,0,0,0,0,3,3,0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,3,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,3,3,0,0,0,0,0,0,0,0,2,0,0,0,0,
0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,3,0,
0,0,0,0,0,0,0,0,0,0,0,0,3,0,0,0,0,0,3,0,0,0,0,0,0,3,0,0,
0,0,0,0,0,0,0,0,0,0,0,3,0,3,0,0,3,0,0,0,0,0,0,0,0,0,0,0),
byrow=TRUE, ncol=28)
colnames(informalhelp) <- label
rownames(informalhelp) <- label
informalhelp_mapuche <- list(informalhelp=informalhelp)
usethis::use_data(informalhelp_mapuche, overwrite = TRUE)
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.