Creating a for-loop where i identifies data by column in R -

-

i trying use for-loop create series of summaries of gam models of variation in capture rate of invertebrate species using smoothed term day of year (doy), , linear predictor incorporating weather (there many of these). have made function run , output model summary:

gamlin <- function(x) {   m <- gam(log10e ~ s(doy) + x, data=eggseasongam)   return(summary(m)) }

i think want utilize above in for-loop sequentially take x weather predictors in columns 4 through 173, struggling this. suggestions appreciated.

thanks, mike

2 approaches off top of head be:

t<-data.frame(c1=rnorm(10),c2=rnorm(10), c3=rnorm(10))

1- use formula, allows provide character string formula

> f<-function(d,x) lm(formula(paste("c1",x,sep="~")), data=d) > f(t,"c2")  call: lm(formula = formula(paste("c1", x, sep = "~")), data = d)  coefficients: (intercept)           c2     -0.1567      -0.4654

2- alternatively feed in column directly

> f2<-function(d,x) lm(c1 ~ d[,x], data=d) > f2(t,"c2")  call: lm(formula = c1 ~ d[, x], data = d)  coefficients: (intercept)       d[, x]     -0.1567      -0.4654

once have settled on approach dynamic regression function can put in for-loop

 for(col in 4:173) f(t,col)

chances are, want use results somehow, rather print summary (perhaps take coefficients , put them in dataframe , graph them, or along lines. in case suggest checking out plyr , reshape packages , specficially functions melt , ddply within each

in case follows

library(melt) library(plyr)  yvar<-t[,1] xvars<-melt(t[,-1]) > head(xvars)   variable      value 1       c2 -0.8200263 2       c2 -1.5359220 3       c2 -0.2107913 4       c2 -0.2950263 5       c2  0.8231989 6       c2 -0.5971358  betas<-ddply(xvars, .(variable), summarize, beta=coefficients(lm(yvar ~ value))[2])

Comments

Post a Comment

Popular posts from this blog

python - Subclassed QStyledItemDelegate ignores Stylesheet -

-
i'm trying subclass qstyleditemdelegate remove focus rectangle in qcombobox . even though i'm calling base implementation of paint function , nothing else, result different. looks if parts of style-sheet influence bounding box of item taken consideration. class pstyleditemdelegate(qstyleditemdelegate): def __init__(self, *args, **kwds): super(pstyleditemdelegate, self).__init__(*args, **kwds) def paint(self, *args, **kwargs): qstyleditemdelegate.paint(*args, **kwargs) what have paint unmodified qstyleditemdelegate ? as suggested tried replacing pyside pyqt4 , works, appears bug. update pyside 1.1.2 1.2.1 result same. unfortunately switch breaks other parts of code, if there no other suggestions i'm going accept answer. edit bug tracked here
Read more

java - HttpClient 3.1 Connection pooling vs HttpClient 4.3.2 -

-
i have used httpclient3.1(java) connection pooling below : import org.apache.commons.httpclient.httpclient; import org.apache.commons.httpclient.multithreadedhttpconnectionmanager; import org.apache.commons.httpclient.params.httpclientparams; import org.apache.commons.httpclient.params.httpmethodparams; import org.apache.log4j.logger; public class httpclientmanager { private static logger logger = logger.getlogger(httpclientmanager.class); private static multithreadedhttpconnectionmanager connectionmanager = new multithreadedhttpconnectionmanager(); private static httpclientparams clientparams = new httpclientparams(); static { try { clientparams.makelenient(); clientparams.setauthenticationpreemptive(false); clientparams.setparameter(httpmethodparams.so_timeout, new integer(30000)); // set so_timeout clientparams.setparameter(httpmethodparams.head_body_check_timeout, new integer(3000)); // head responses ...
Read more

node.js - StackOverflow API not returning JSON -

-
i using node.js script gather data stackoverflow. know responses gzipped, put code in should take care of that. script follows: var request = require('request'); var zlib = require('zlib'); function getstackoverflowresponse(url, callback){ request(url, {encoding: null}, function(err, response, body){ if(response.headers['content-encoding'] == 'gzip'){ zlib.gunzip(body, function(err, dezipped) { callback(dezipped); }); } else { callback(body); } }); } var url = "https://api.stackexchange.com/docs/questions#pagesize=2&order=desc&min=2014-01-04&max=2014-02-02&sort=activity&tagged=apigee&filter=default&site=stackoverflow&run=true"; getstackoverflowresponse(url, function(questions) { console.log(questions); }); instead of getting json output, i'm getting following response: buffer 0d 0a 0d 0a 0d 0a 0d 0a 3c 21 44 4f 43 54 59 50 45 20 48...
Read more