Displaying 4 results from an estimated 4 matches for "mystep".
2012 Feb 03
1
incomplete final line found on <name of my sourced function file>
...aggregate(indata[invars],by=indata[datesvar],FUN=myfunction)
yrange=range(pretty(as.matrix(myagg[2:length(myagg)])))
if(fixedy==0){
ymin<-yrange[1]
ymax<-yrange[2]} else {
ymin<-0
ymax<-yrange[2]}
ydistance<-ymax-ymin
if(ydistance>0.1 & ydistance<=1){mystep<-0.1} else {
if(ydistance>1 & ydistance<=10){mystep<-1/2} else {
if(ydistance>10 & ydistance<=100) {mystep<-10/5} else {
if(ydistance>100 & ydistance<=1000) {mystep<-100/5} else {
if(ydistance>1000 & ydistance<=10000) {myste...
2010 Sep 19
2
working with eval and environments
...odel <- do.call(trial at fit$func,trial at fit$args)
print(model$call)
select <- do.call(trial at step$func,trial at step$args)
}
mydf <- data.frame(y <- runif(100),x1 <- runif(100),x2 <- runif(100))
myfit <- list(func="wrap.lm",args=alist(formula=null,data=train))
mystep <- list(func="wrap.step",args=alist(object=model,scope=full,trace=0))
setClass("trial",representation(n="numeric",fit="list",step="list"))
trial1 <- new("trial",n=50,fit=myfit,step=mystep)
trial2 <- new("trial",n=75,fit...
2006 Mar 16
3
Did I use "step" function correctly? (Is R's step() function reliable?)
...) + s(col4, 2)
+ s(col2, 3) + s(col3, 3) + s(col4, 3)
+ s(col2, 4) + s(col3, 4) + s(col4, 4)
+ s(col2, 5) + s(col3, 5) + s(col4, 5)
+ s(col2, 6) + s(col3, 6) + s(col4, 6)
+ s(col2, 7) + s(col3, 7) + s(col4, 7)
+ s(col2, 8) + s(col3, 8) + s(col4, 8)
+ s(col2, 9) + s(col3, 9) + s(col4, 9),
data=X);
mystep=step(mygam);
---------------------
After a long list, the following are two lowest AIC:
Step: AIC= 152.1
col1 ~ col2 + col3 + col4 + s(col2, 3) + s(col3, 3) + s(col4, 3)
Step: AIC= 153.45
col1 ~ col2 + col3 + col4 + s(col2, 3) + s(col3, 3)
-----------------------------------------------
Ho...
2011 May 24
2
plotting single variables common to multiple data frames
Hello all,
I have files (see attached) which are created daily. I want to load
about a weeks worth of them (7 daily files) and plot a weeks worth of
one variable together. So one variable name is delta_D_H. I would like
to plot this variable from all 7 days on one plot. I'm having trouble
figure out how to do this.
I've loaded them all up using this
time=Sys.time()
t1<-