search for: fplot

Displaying 4 results from an estimated 4 matches for "fplot".

Did you mean: plot
2010 Feb 07
2
conditioned xyplot, many y variables
The example below creates parallel time-series plots of three different y variables conditioned by a dichotomous factor. In the graphical layout, ? Each y variable inhabits its own row and is plotted on its own distinct scale. ? Each level of the factor has its own column, but within each row the scale is held constant across columns. ? The panels fit tightly (as they do
2009 Sep 28
2
Polynomial Fitting
...just spent some time fitting poly functions to time series data in R using lm() and predict(). I want to analyze the functions once I've fit them to the various data I'm studying. However, after pulling the first function into Octave (just by plotting the polynomial function using fplot() over the same x interval as my original data) I was surprised to see that the scale and y values were vastly different than the ones I have in R. The basic shape of the polynomial over the same interval looks similar in both Octave and R, but the y values are all different. When I compute...
2009 Mar 21
1
Forestplot () box size question
...hat would turn off the information weighting of the box size (I have smaller randomized trials getting less weight than a much larger non-randomized trial). The function is forestplot() from rmeta. Thanks for any help. Gerard Slightly modified working function with data and a call follows: fplot=function (labeltext, mean, lower, upper, align = NULL, is.summary = FALSE, clip = c(-Inf, Inf), xlab = "", zero = 1, graphwidth = unit(3,"inches"), col = meta.colors(), xlog = FALSE, xticks = NULL, xlow=0, xhigh, digitsize, ...) { require("grid&quo...
2013 Apr 23
0
adding the second regressor
...(hansen_tdum[,10]) EX1 <- as.matrix(hansen_tdum[,19]) y <- EX1 x <- ??????????????? for (fmp in 1:1){ cat ("Tax and Spend, Linear ","\n") cat ("\n") whiten <- 1 kernel <- 3 band <- 4 out <- fm(y,x,1,1) cat ("\n") cat ("\n") if (fplot == 1){ mtit <- "Ependiture, 1986:2011" xtit <- "Figure 1" ytit <- "F stat" t <- nrow(y) firstob <- 1986 + round(.15*t)/4 inc <- .25 rf <- nrow(out$f) crit <- matrix(1,rf,1)%*%cbind(15.2,6.22,7.815) ytics <- range(cbind(out$f,crit)) xx <- a...