Creating a table of species traits weighted by abundance in R -


i've table of species traits (>400 species, scores each of 50 traits). wish weight abundance of species recorded @ number of sites (150 sites), creating table of summed scores of each individual trait in each site. can manually (see below), not sure how code more efficiently.

t1 <- c(0,1,0); t2 <- c(0,0,0.5); t3 <- c(1,0,0.5); t4 <- c(1,0,0.5); t5 <- c(0,1,0.5); df.trt <- data.frame(t1,t2,t3,t4,t5) rownames(df.trt) <- c("species.a", "species.b", "species.c") rm(t1,t2,t3,t4,t5)  site.1 <- c(10,0,1); site.2 <- c(0,3,7); site.3 <- c(2,4,100) df.abund <- data.frame(site.1,site.2,site.3) rownames(df.abund) <- c("species.a", "species.b", "species.c") rm(site.1,site.2,site.3) ### table of species traits df.trt  ### table of species abundance df.abund  ###generating weighted table manually site.1 <- c(sum(df.trt[,1]*df.abund[,1]),             sum(df.trt[,2]*df.abund[,1]), sum(df.trt[,3]*df.abund[,1]),             sum(df.trt[,4]*df.abund[,1]), sum(df.trt[,5]*df.abund[,1])) site.2 <- c(sum(df.trt[,1]*df.abund[,2]),             sum(df.trt[,2]*df.abund[,2]), sum(df.trt[,3]*df.abund[,2]),             sum(df.trt[,4]*df.abund[,2]), sum(df.trt[,5]*df.abund[,2])) site.3 <- c(sum(df.trt[,1]*df.abund[,3]),             sum(df.trt[,2]*df.abund[,3]), sum(df.trt[,3]*df.abund[,3]),             sum(df.trt[,4]*df.abund[,3]), sum(df.trt[,5]*df.abund[,3])) wt.trt <- data.frame(site.1, site.2, site.3) rm(site.1,site.2,site.3) rownames(wt.trt) <- c("t1","t2","t3","t4","t5") wt.trt <- t(wt.trt); wt.trt <- data.frame(wt.trt)  ###to generate following table wt.trt

i understand shouldn't onerous task, i'm having trouble figuring out how go it. advice can provide.

ps: i'm new r , first post on stack overflow, apologies if i'm accidentally not adhering site rules/etiquette. don't think duplicate query (or @ least, i'm unable find has helped)

the code have above turned loop. here ways of hiding/avoiding loop:

do.call(rbind,   lapply(df.abund, function(x) colsums(x*df.trt)) ) #        t1   t2   t3   t4   t5 # site.1  0  0.5 10.5 10.5  0.5 # site.2  3  3.5  3.5  3.5  6.5 # site.3  4 50.0 52.0 52.0 54.0

this computes each row , binds them together. (try running second line see.)

sapply(df.abund, function(x) colsums(x*df.trt)) #    site.1 site.2 site.3 # t1    0.0    3.0      4 # t2    0.5    3.5     50 # t3   10.5    3.5     52 # t4   10.5    3.5     52 # t5    0.5    6.5     54

this computes whole thing in 1 go, unfortunately flips rows , columns around.


Comments

Post a Comment

Popular posts from this blog

javascript - Using jquery append to add option values into a select element not working -

i'm looking dynamically populate select element names of items stored array. for reason it's not working , i'm not sure why. html: <div class="col-md-4 col-md-offset-4"> <select class="select1"> </select> , <select class="select2"> </select> </div> note i'm using bootstrap layout. here's jquery i'm using try , populate ".select1" jquery: select: function() { $.each(state.greens, function(index, value) { $(".select1").append("<option value =' " + index + " '>" + state.greens[index].name + "</option>"); }); } note function 'select' stored within object called 'display'. state.greens name of array i'm trying access. so @ end of html page call display.select(); call function. no error messages showing in console. also, saw question: appending
Read more

Android soft keyboard reverts to default keyboard on orientation change -

i'm building android soft keyboard , can't seem fix bug - have arabic , qwerty keyboard , when rotate device on qwerty keyboard (or arabic shift), it's if program has "restarted" , becomes arabic keyboard without shift. the onsaveinstancestate(bundle savedinstancestate) not work because application not extend activity inputmethodservice . i put following in android manifest android:configchanges="keyboard|keyboardhidden|orientation" android:windowsoftinputmode="stateunchanged|adjustresize"> i tried using @override public void onconfigurationchanged(configuration newconfig) { super.onconfigurationchanged(newconfig); log.i(mydebug, "config changed " + currentkeyboard.equals(qwerty)); } however, currentkeyboard.equals(qwerty)) results false , made sure true before orientation change. any appreciated. i think applications fault. if application restarting on orientation change
Read more

Rendering JButton to get the JCheckBox behavior in a JTable by using images does not update my table -

i rendering jbutton image on simulate jcheckbox behavior. why don't let jtable render jcheckbox? because need bigger checkboxes , there's no way can resize them (as far know). so, have own table cell renderer , editor. both renders jbutton , checkbox images on them. trying change image checked image unchecked image (or vice versa) , update cell value (boolean true or false). however, reason, getcelleditorvalue() not update table. so, release mouse, value goes original one. any appreciated! lot! public class tableexample extends jframe { jscrollpane pane; jpanel panel; jtable table; object[][] data; mytablemodel tm; renderer buttoncolumn; public tableexample(object[][] data) throws ioexception { string[] columns = {"column#1", "column#2", "column#3", "column#4", "column#5", "column#6"}; this.data = data; this.setpreferredsize(new dimension(700, 500));
Read more