In einarhjorleifsson/smx: MRI survey functions

library(knitr)
library(dplyr)
opts_chunk$set(echo=TRUE,
               eval=FALSE,
                 cache=FALSE,
               prompt=FALSE,
               tidy=FALSE,
               comment=NA,
               message=FALSE,
               warning=FALSE)

Icelandic survey stuff

Dictionary

dictionary <- 
  read.csv("inst/csv/dictionary.csv", stringsAsFactors = FALSE) %>% 
  tbl_df()
devtools::use_data(dictionary, overwrite = TRUE)

LENGTHS

attach('~/stasi/Splus5/SMB/.RData')
use_data(LENGDIR)
detach('file:~/stasi/Splus5/SMB/.RData')

Length-weight coefficients

attach('~/stasi/Splus5/SMB/.RData')
names(LWCOEFF) <- iconv(names(LWCOEFF), "ISO8859-1", "UTF-8")
attributes(LWCOEFF$"12") <- NULL
use_data(LWCOEFF)

lwc <- 
  LWCOEFF %>% 
  dplyr::bind_rows() %>% 
  tidyr::gather(key = species.id) %>% 
  dplyr::mutate(variable = rep(c("a","b"),length(LWCOEFF)),
                species.id = as.integer(species.id)) %>% 
  dplyr::filter(!is.na(species.id)) %>% 
  tidyr::spread(key = variable, value = value)


devtools::use_data(lwc, overwrite = TRUE)
detach('file:~/stasi/Splus5/SMB/.RData')

stratas_new

attach("~/stasi/Splus5/HAUSTRALLNewStrata/Stratifiering/.RData")
x <- attributes(STRATAS)
stratas_new <-
  dplyr::data_frame(newstrata = 1:45,
                    area = as.numeric(x$area),
                    rall.area = x$rall.area,
                    lon = x$pos$lon,
                    lat = x$pos$lat,
                    .Names = x$names)
devtools::use_data(stratas_new)

stratas_old

attach("~/stasi/Splus5/SMB/GEOMETRY.NEW/.RData")
x <- attributes(STRATAS)
stratas_old <- data_frame(oldstrata = as.integer(x$names),
                                  area = as.numeric(x$area),
                                  rall.area = x$rall.area,
                                  lon = x$pos$lon,
                                  lat = x$pos$lat,
                                  .Names = as.integer(x$.Names))
devtools::use_data(stratas_old)