fit_social: Fit social support models

Description Usage Arguments Value Examples

View source: R/models.R

Description

Fits the models when the social support is focal.

Usage

1
fit_social(fit_method, model, DF1)

Arguments

fit_method

"PQL" or" PQL/L" in quotes

model

"full", "nomass", "nosex", "null" in quotes

DF1

dataset to use: same_sex_social or diff_sex_social

Value

a list (fitted model with spaMM)

Examples

 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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
## Not run: 
data(same_sex_social)
data(diff_sex_social)

mod_social_full_same_PQL <- fit_social(fit_method = "PQL",
                                      model = "full",
                                      DF1 = same_sex_social)
mod_social_full_diff_PQL <- fit_social(fit_method = "PQL",
                                      model = "full",
                                      DF1 = diff_sex_social)

mod_social_full_same_PQLL <- fit_social(fit_method = "PQL/L",
                                       model = "full",
                                       DF1 = same_sex_social)
mod_social_full_diff_PQLL <- fit_social(fit_method = "PQL/L",
                                       model = "full",
                                       DF1 = diff_sex_social)
                                       
mod_social_nomass_same_PQL <- fit_social(fit_method = "PQL",
                                        model = "nomass",
                                        DF1 = same_sex_social)
mod_social_nomass_diff_PQL <- fit_social(fit_method = "PQL",
                                        model = "nomass",
                                        DF1 = diff_sex_social)

mod_social_nomass_same_PQLL <- fit_social(fit_method = "PQL/L",
                                         model = "nomass",
                                         DF1 = same_sex_social)
mod_social_nomass_diff_PQLL <- fit_social(fit_method = "PQL/L",
                                         model = "nomass",
                                         DF1 = diff_sex_social)

mod_social_nosex_same_PQL <- fit_social(fit_method = "PQL",
                                       model = "nosex",
                                       DF1 = same_sex_social)
mod_social_nosex_diff_PQL <- fit_social(fit_method = "PQL",
                                       model = "nosex",
                                       DF1 = diff_sex_social)

mod_social_nosex_same_PQLL <- fit_social(fit_method = "PQL/L",
                                        model = "nosex",
                                        DF1 = same_sex_social)
mod_social_nosex_diff_PQLL <- fit_social(fit_method = "PQL/L",
                                        model = "nosex",
                                        DF1 = diff_sex_social)

mod_social_null_same_PQL <- fit_social(fit_method = "PQL",
                                      model = "null",
                                      DF1 = same_sex_social)
mod_social_null_diff_PQL <- fit_social(fit_method = "PQL",
                                      model = "null",
                                      DF1 = diff_sex_social)

mod_social_null_same_PQLL <- fit_social(fit_method = "PQL/L",
                                       model = "null",
                                       DF1 = same_sex_social)
mod_social_null_diff_PQLL <- fit_social(fit_method = "PQL/L",
                                       model = "null",
                                       DF1 = diff_sex_social)
                             
## End(Not run)

hyenaproject/vullioud_2018 documentation built on Aug. 4, 2021, 12:01 a.m.