replace NA with values from other columns

slf2$Year[is.na(slf2$Year)] <- slf2$Ano[is.na(slf2$Year)]

data <- data.frame('a' = c('A','B','C','D','E'),
 'x' = c(1,2,NA,NA,NA),
 'y' = c(NA,NA,3,NA,NA),
 'z' = c(NA,NA,NA,4,5))

cbind(data[1], mycol = na.omit(unlist(data[-1])))

 

https://stackoverflow.com/questions/14563531/combine-column-to-remove-nas

set working directory R notebook, markdown

```{r "setup", include=FALSE}
library(knitr)
opts_knit$set(root.dir = "~/mydir")
```

https://philmikejones.wordpress.com/2015/05/20/set-root-directory-knitr/

save the first (or any) element of a string split

dirs<-matrix(ncol = 2,data=unlist(strsplit(out$`Full Name`,split=",")),byrow = TRUE)[,1]

All Pairwise Combinations of Rownames from a Square Matrix

combn(rownames(my.square.matrix), m=2, FUN=paste, collapse = "-", simplify = T)

Make ggplot look like base plot in R

myplot + theme_bw() + theme(panel.border = element_blank(), panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

myplot + theme_bw() + theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(), axis.line = element_line(colour = "black"))

here

 

 

 

Automatic MIT License for R Packages

devtools::use_mit_license()

save rda data file with compression

save(mydata,file="mydata.rda",compress="xz")

find non-ascii in R

tools::showNonASCII(readLines("myfiles.R"))

raster cell area size 1 degree cell size km2

For a 1×1 degree cell size raster

r <- raster(ncol=360, nrow=180) #or just the default r<-raster()
area(r)
area(r)$values

 

http://gis.stackexchange.com/questions/177622/r-calculate-raster-cell-size-in-map-units

 

http://gis.stackexchange.com/questions/29734/how-to-calculate-area-of-1-x-1-degree-cells-in-a-raster

new faster code for PGLMM

https://github.com/willpearse/pez/blob/master/R/pglmm.R