r - Subsetting every x amount of columns as separate sites -

-

i need function recognises every x amount of columns separate site. in df1 below there 8 columns, 4 sites each consisting of 2 variables. previously, have used procedure answered here selecting column sequences , creating variables.

set.seed(24) df1 <- as.data.frame(matrix(sample(0:20, 8*10, replace=true), ncol=8))

i need calculate column sum total each variable obtained. 

colsums <- as.data.frame(t(colsums(df1)))

i subsequently split dataframe using technique...

lst1 <- setnames(lapply(split(1:ncol(colsums), as.numeric(gl(ncol(colsums),                                                       2, ncol(colsums)))), function(i) colsums[,i]), paste0('site', 1:4)) list2env(lst1, envir=.globalenv)

and organise 1 dataframe...

combined <- as.matrix(mapply(c,site1,site2,site3,site4)) rownames(combined) <- c("site.1","site.2","site.3","site.4")

whilst technique has been great on smaller dataframes, there substantial amount of sites (>500) typing out each site following mapply function takes lot of code , lead sites getting missed off if i'm typing them in manually. there easy way overcome following colsums stage?

a matrix vector dimensions. matrices stored in column-major order in r.

the call matrix(colsums, nrow=2) should lot.

nb.: polluting "global" environment bad idea.


Comments

Post a Comment

Popular posts from this blog

yii2 - Yii 2 Running a Cron in the basic template -

-
i have seen instructions on running cron in advanced template, cant figure out how on basic template. have following controller in basic controllers folder. <?php namespace app\controllers; use yii\console\controller; /** * cron controller */ class croncontroller extends controller { public function actionindex() { echo "cron service runnning"; } public function actionmail($to) { echo "sending mail " . $to; } } i have navigated root of application , tried these comands yii cron php yii cron im getting unknown comand "cron" i know old question failed find actual answer this. if @ code yii exec file you'll notice requires /common/config/aliases.php file console/config/main.php. can naturally change these or copy on these advanced template. hope solves problem wanting same thing.
Read more

asp.net - 'System.Web.HttpContext' does not contain a definition for 'GetOwinContext' Mystery -

-
i realize question might seem trivial some, it's these types of things find myself fighting quite bit , want make sense of despite seeming losing battle in .net (for me anyway). so, if following: using system.web; ... applicationuser user = system.web.httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); that produces error in title , red getowincontext() , error cannot resolve symbol 'getowincontext()' however, if following (remove system.web in front of httpcontext ), works expected (or @ least no errors): using system.web; ... applicationuser user = httpcontext.getowincontext().getusermanager<applicationusermanager>().findbyid(system.web.httpcontext.user.identity.getuserid()); however, if (same line that's working using system.web commented out): //using system.web; ... applicationuser user = httpcontext.getowincontext().getusermana
Read more

php - How do you embed a video into a custom theme on WordPress? -

-
i'm using wordpress 4.2.3 , created custom theme use. when try embed youtube video (pasting http:// link content area), video shows in edit content area, when view site, shows text url instead. i tried sorts of things clear formatting, removing link, unchecking settings in writing area, etc. temporarily switched default wp theme , video shows up, i'm missing in template code, , can't figure out what. here code used outputting content in template. index.php <div class="video"> <?php $post_id = 26; $queried_post = get_post($post_id); echo $queried_post->post_content; ?> </div> thanks - appreciate it!
Read more