Hi,
I am trying to design my nest visit data frame for nest survival analysis, but I met some problems.
Here is my data frame and code:
- Code: Select all
> head(Nestdata)
id FirstFound LastPresent LastChecked Fate Freq NestHigh Year FoundStage AgeFound AgeDay1
1 LN1126 6 29 29 0 1 1.50 11 3 1 -4
2 LN1132 12 31 31 0 1 0.77 11 3 1 -10
3 LN1123 12 33 33 0 1 0.65 11 3 1 -10
4 LN1140 13 34 34 0 1 1.28 11 3 1 -11
5 LN1141 15 37 37 0 1 0.63 11 3 1 -13
6 LN1133 14 36 36 0 1 1.60 11 3 1 -12
... ...
> library("RMark")
> Nestdata$Year=factor(Nestdata$Year)
> Nestdata$FoundStage=factor(Nestdata$FoundStage)
> Nestdata.pr <- process.data(Nestdata,
+ nocc=73,
+ model="Nest",
+ groups=c("Year","FoundStage"))
... ...
> ddl=make.design.data(Nestdata.pr)
## Here I try to add the covariate nest visit freq. (VisFreq, time-dependent) to the "ddl". I considered it as a virtual value from 5 to 76 and this means it's the same for each nest in each time, but it should be different in fact.
- Code: Select all
> df=data.frame(time=c(1:72),VisFreq=c(5:76))
> df
time VisFreq
1 1 5
2 2 6
3 3 7
4 4 8
5 5 9
6 6 10
7 7 11
8 8 12
... ...
> head(ddl$S)
par.index model.index group age time Age Time Year FoundStage
1 1 1 112 0 1 0 0 11 2
2 2 2 112 1 2 1 1 11 2
3 3 3 112 2 3 2 2 11 2
4 4 4 112 3 4 3 3 11 2
5 5 5 112 4 5 4 4 11 2
6 6 6 112 5 6 5 5 11 2
> ddl$S=merge_design.covariates(ddl$S,df)
> head(ddl$S)
time par.index model.index group age Age Time Year FoundStage VisFreq
1 1 1 1 112 0 0 0 11 2 5
2 2 2 2 112 1 1 1 11 2 6
3 3 3 3 112 2 2 2 11 2 7
4 4 4 4 112 3 3 3 11 2 8
5 5 5 5 112 4 4 4 11 2 9
6 6 6 6 112 5 5 5 11 2 10
... ...
> ddl[["S"]][["time"]]
[1] 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] 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8
[81] 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
[121] 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
[161] 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
[201] 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
[241] 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 62 63 64
[281] 65 66 67 68 69 70 71 72 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
[321] 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 62 63 64 65 66 67 68 69 70 71 72
[361] 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
[401] 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8
[441] 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
[481] 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
[521] 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
[561] 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
[601] 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 62 63 64
[641] 65 66 67 68 69 70 71 72 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
[681] 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 62 63 64 65 66 67 68 69 70 71 72
[721] 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
[761] 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8
[801] 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
[841] 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
[881] 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
[921] 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24
[961] 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 62 63 64
[ reached getOption("max.print") -- omitted 80 entries ]
72 Levels: 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 ... 72
> ddl[["S"]][["VisFreq"]]
[1] 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
[41] 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12
[81] 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
[121] 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
[161] 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
[201] 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
[241] 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 62 63 64 65 66 67 68
[281] 69 70 71 72 73 74 75 76 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
[321] 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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
[361] 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
[401] 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12
[441] 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
[481] 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
[521] 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
[561] 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
[601] 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 62 63 64 65 66 67 68
[641] 69 70 71 72 73 74 75 76 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
[681] 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 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76
[721] 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
[761] 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12
[801] 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
[841] 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
[881] 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
[921] 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28
[961] 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 62 63 64 65 66 67 68
[ reached getOption("max.print") -- omitted 80 entries ]
##
This is the first problem that how to design the covariate nest visit freq. with true value? Can I mark it in an excel sheet then replace the "ddl[["S"]][["VisFreq"]]"?##Then I try to build the model, but there were some problems:
- Code: Select all
> fm1 <- mark(Nestdata,ddl,nocc=73,model="Nest",
+ model.parameters=list(S=list(formula=~Year+FoundStage+NestAge+VisFreq+time)),
+ groups=c("Year","FoundStage"))
Warning: specification of ddl ignored, as data have not been processed
Error in make.mark.model(data.proc, title = title, parameters = model.parameters, :
Error: Variable VisFreq used in formula is not defined in data
Error in mark(Nestdata, ddl, nocc = 73, model = "Nest", model.parameters = list(S = list(formula = ~Year + :
Misspecification of model or internal error in code
##It looks like the design data frame "ddl" is independent with original data "Nestdata".
Dose Does it mean the function of "merge_design.covariates" is not working in the model "nest"? This is the second problem.Thanks in advance,
Qian