library(interflex)
help(inter.raw)
data = d
span = 1
span = NULL
weights = NULL
graphpath
names(d)
d
d$decade
d$cowcode
CV
bw
grid
weights
metric
parallel
grid
X.eval
head(data)
head(data[,Z])
n
fold
cl
nfold = 5
FE
data$Y
Y
data[,Y]
data[,Z]
i=1
bw <- grid[1]
bw
cv(bw)
mse
j
j=1
fold
testd
testid
train
train[,1]
dim(train)
weights
X.eval
train[,Y]
train[,Z]
train[,X]
train[,FE]
train[,Z]
train[,D]
data = train
X.eval
weights
noZ
noFE
formula
head(dat)
head(dat.FE)
dat.FE
i=1
w
weights
xx
xx
w
dat1
dat.FE
dat.FE
Y
D
X
head(dat2)
dat2
head(dat2)
head(dat2)
head(dat2)
names(dat2)
w
plot(w)
plot(w)
sum(w>0)
length(w)
detach("package:interflex", unload=TRUE)
estcoef <- NULL
estcoef
sum(abs(w))
