Displaying 2 results from an estimated 2 matches for "slo1".
Did you mean:
sdo1
2005 Jan 18
4
Data Simulation in R
...Clean up Workspace
rm(Data,vl.error)
gc()
#####################
# Step 4 Run GLS
glsrun1 <- lapply(long, function(x) gls(score.1~I(time-1), data=x,
correlation=corAR1(form=~1|V1), method='ML'))
# Extract intercepts and slopes
int1 <- sapply(glsrun1, function(x) x$coefficient[1])
slo1 <- sapply(glsrun1, function(x) x$coefficient[2])
################
#Clean up workspace
rm(glsrun1)
gc()
glsrun2 <- lapply(long, function(x) gls(score.2~I(time-1), data=x,
correlation=corAR1(form=~1|V1), method='ML'))
# Extract intercepts and slopes
int2 <- sapply(glsrun2, func...
2005 Jan 08
2
Does R accumulate memory
....1~I(time-1), data=x,
correlation=corAR1(form=~1|V1), method='ML'))
glsrun2 <- lapply(long, function(x) gls(score.2~I(time-1), data=x,
correlation=corAR1(form=~1|V1), method='ML'))
# Step 5 Extract Intercepts and slopes
int1 <- lapply(glsrun1, function(x) x$coefficient[1])
slo1 <- lapply(glsrun1, function(x) x$coefficient[2])
int2 <- lapply(glsrun2, function(x) x$coefficient[1])
slo2 <- lapply(glsrun2, function(x) x$coefficient[2])
# Step 6 Compute SD of intercepts and slopes
int.sd1 <- sapply(glsrun1, function(x) x$coefficient[1])
slo.sd1 <- sapply(glsru...