Is there any alternative loop

rajarams999 · December 1, 2022, 10:08am

Dear R Community members,
I have the following loop programme. This loop takes a long time to get the desired results. Is there any alternate way we can get the same results through a programme that takes less time. Hope that the loop is taking long time, because it included the index.

Thanks and regards,
Rajaram S

for(j in 1:vcal_len) {
#IRevents$epi=IRevents$nepi
for (k in 1:nrow(IRevents)) {

if(IRevents[k,paste0("vcal1_",j)] == IRevents[k,"prev_vcal1"])
    {IRevents[k,"epi"] = IRevents[k,"epi"]}
else {IRevents[k,"epi"] = IRevents[k,"epi"]+1}

set the epi number

IRevents[,paste0("ev004_",j)] = IRevents$epi
IRevents[k,"prev_vcal1"] <- IRevents[k,paste0("vcal1_",j)]

save the vcal1 value for the next time through the loop

}
}

FactOREO · December 1, 2022, 10:30am

Hello,

please provide a propperreprex to show us all the necessary informations which enable us to help you.

Kind regards

rajarams999 · December 2, 2022, 10:40am

library(reprex)
vcal_len <- nchar(IRevents$vcal_1[1])
for(j in 1:vcal_len) {
for (k in 1:nrow(IRevents)) {

if(IRevents[k,paste0("vcal1_",j)] == IRevents[k,"prev_vcal1"])
{IRevents[k,"epi"] = IRevents[k,"epi"]}
else {IRevents[k,"epi"] = IRevents[k,"epi"]+1}
IRevents[,paste0("ev004_",j)] = IRevents$epi
IRevents[,"prev_vcal1"] <- IRevents[,paste0("vcal1_",j)]
}
}
Created on 2022-12-02 with reprex v2.0.2

When executing the above loop, it takes a long time to produce the results. Help is sought to make the modification in the loop and get the desired results with minimum time.

FactOREO · December 2, 2022, 3:10pm

There is still a lack of data. Can you provide some data to work with?

jrkrideau · December 2, 2022, 4:13pm

A handy way to supply some sample data is the dput() function. In the case of a large dataset something like dput(head(mydata, 100)) should supply the data we need.

rajarams999 · December 3, 2022, 3:05am

As informed only data of 20 cases are provided. Hope that this is sufficient to verify. The issue is the loop provided earlier takes long time to provide the result, since the number of observations is large.
dput(head(IRevents, 25))
structure(list(vcol_1 = structure(c(1, 1, 1, 1, 1, 1, 1, 1, 1,
1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_2 = structure(c(2,
2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2,
2, 2, 2), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_3 = structure(c(3,
3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
3, 3, 3), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_4 = structure(c(4,
4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4, 4,
4, 4, 4), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_5 = structure(c(5,
5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5, 5,
5, 5, 5), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_6 = structure(c(6,
6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6,
6, 6, 6), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_7 = structure(c(7,
7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7, 7,
7, 7, 7), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_8 = structure(c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcol_9 = structure(c(NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_, NA_real_,
NA_real_, NA_real_, NA_real_), label = "column number", format.stata = "%41.0g", labels = c(Pregnancies and contraception = 1,
Reason = 2, Marriage = 3,
Moves and communities = 4, Source of method = 5,
Ultrasound = 6, Country = 7,
Country = 8, Country = 9
), class = c("haven_labelled", "vctrs_vctr", "double")), vcal_1 = structure(c("0000000000000000000000000000000000000000000000000000000000000000",
"50000000000000888888888888888888888888000000BPPPPPPPP000BPPPPPPP",
"0000000000000000000000000000000000000000000000000000000000000000",
"0000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"55555555500BPPPPPPPPP888888888888888888888888BPPPPPPPP00000000000",
"000BPPPPPPPP00000000000000000000000000000000000000000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"6666666666666666666666666666666666666666666666666666666666666666",
"0000000BPPPPPPPP0000000000000000000000000000000000000000000BPPPP",
"55555555555555555555555555555555555555555555555555555555555555555",
"00000000000000000000000000000000000000000000000000000000000000000",
"000000000000000000000000000000000000000000000000000000000000000BP",
"0000000000000000000000000000000000000000000000000000000000000000",
"0000000000000000000000000000000000000000000000000000000000000000",
"00000000000000000BPPPPPPPP0000000000000000000000000000000BPPPPPP",
"00000000000000000TPPPPPPPP00000000000000000000000000000000000000",
"6666666666666666666666666666666666666666BPPPPPPPP0000000000000000",
"00000000000000000000000000000000000000000000000000000000000000000",
"000000BPPPPPPPPP0000000000000000000000000000000000000000000000000",
"66666666666666666666666666666666666666666666666666666666666666666"
), label = "Calendar", format.stata = "%80s"), vcal_2 = structure(c("",
"9", "", "", "", "", "", "", "", "2", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal_3 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), epi = c(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), prev_vcal1 = c("-", "-", "-", "-", "-", "-",
"-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-", "-",
"-", "-", "-", "-", "-", "-", "-"), vcal1_1 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6",
"P", "5", "0", "B", "0", "0", "P", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_1 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_2 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6", "P", "5", "0", "0", "0", "0",
"P", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_2 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_3 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6",
"P", "5", "0", "0", "0", "0", "P", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_3 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_4 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6", "P", "5", "0", "0", "0", "0",
"P", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_4 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_5 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6",
"B", "5", "0", "0", "0", "0", "P", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_5 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_6 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"P", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_6 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_7 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "B", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_7 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_8 = structure(c("0", "B", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_8 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_9 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_9 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_10 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_10 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_11 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_11 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_12 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_12 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_13 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_13 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_14 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "0", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_14 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_15 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "0", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_15 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_16 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_16 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_17 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_17 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_18 = structure(c("0", "P", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_18 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_19 = structure(c("0",
"P", "0", "0", "0", "0", "0", "0", "0", "B", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_19 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_20 = structure(c("0", "B", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_20 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_21 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_21 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_22 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_22 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_23 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_23 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_24 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "B", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_24 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_25 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_25 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_26 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_26 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_27 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_27 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_28 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_28 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_29 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_29 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_30 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_30 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_31 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_31 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_32 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_32 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_33 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_33 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_34 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_34 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_35 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_35 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_36 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_36 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_37 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_37 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_38 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_38 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_39 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "P", "P", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_39 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_40 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"P", "P", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_40 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_41 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "P", "P", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_41 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_42 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "8", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"P", "P", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_42 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_43 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "8", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "P", "P", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_43 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_44 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"P", "P", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_44 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_45 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "P", "P", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_45 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_46 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"P", "P", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_46 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_47 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "B", "T", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_47 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_48 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_48 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_49 = structure(c("0",
"8", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"P", "5", "0", "0", "0", "0", "0", "0", "6", "0", "P", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_49 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_50 = structure(c("0", "8", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "P", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "P", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_50 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_51 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "P", "0", "0", "6",
"P", "5", "0", "0", "0", "0", "0", "0", "6", "0", "P", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_51 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_52 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "P", "0", "0", "6", "P", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "P", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_52 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_53 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "B", "P", "0", "6",
"P", "5", "0", "0", "0", "0", "0", "0", "6", "0", "P", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_53 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_54 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "0", "P", "0", "6", "P", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "P", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_54 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_55 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "0", "P", "0", "6",
"P", "5", "0", "0", "0", "0", "0", "0", "6", "0", "P", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_55 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_56 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "5", "P", "0", "6", "P", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "P", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_56 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_57 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "5", "P", "0", "6",
"B", "5", "0", "0", "0", "0", "0", "0", "6", "0", "P", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_57 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_58 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "5", "P", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "B", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_58 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_59 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "5", "P", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_59 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_60 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "5", "P", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_60 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_61 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "5", "B", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_61 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_62 = structure(c("0", "0", "0", "0", "0", "0", "0",
"0", "0", "5", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_62 = structure(c("", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
""), label = "Calendar", format.stata = "%80s"), vcal1_63 = structure(c("0",
"0", "0", "0", "0", "0", "0", "0", "0", "5", "0", "0", "6",
"0", "5", "0", "0", "0", "0", "0", "0", "6", "0", "0", "6"
), label = "Calendar", format.stata = "%80s"), vcal2_63 = structure(c("",
"", "", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", "", "", "", "", "", "", "", ""), label = "Calendar", format.stata = "%80s"),
vcal1_64 = structure(c("0", "5", "0", "0", "0", "0", "0",
"0", "0", "5", "0", "0", "6", "0", "5", "0", "0", "0", "0",
"0", "0", "6", "0", "0", "6"), label = "Calendar", format.stata = "%80s"),
vcal2_64 = structure(c("", "9", "", "", "", "", "", "", "",
"2", "", "", "", "", "", "", "", "", "", "", "", "", "",
"", ""), label = "Calendar", format.stata = "%80s")), row.names = c(NA,
-25L), class = c("tbl_df", "tbl", "data.frame"))

system · December 24, 2022, 3:05am

This topic was automatically closed 21 days after the last reply. New replies are no longer allowed.

If you have a query related to it or one of the replies, start a new topic and refer back with a link.