data-raw/jrcvnc2018F.R

# create JRCVNC2018F template

library(nat)
JRCVNC2018F.surf=read.hxsurf('data-raw/JRC2018_VNC_FEMALE_4um_iso_smooth.surf.18k.surf')
library(devtools)
use_data(JRCVNC2018F.surf, overwrite = T)

library(nat.templatebrains)
JRCVNC2018F <-
  as.templatebrain(
    'data-raw/JRC2018_VNC_FEMALE_4iso.nhdr',
    regName = 'JRCVNC2018F',
    name = 'Janelia 2018 average female VNC template',
    type = 'average',
    sex = 'F',
    doi = 'https://doi.org/10.1101/376384',
    description = paste("Average template VNC constructed from VNC labelled with",
    "brp-SNAP presynaptic marker, dehydrated, and mounted in DPX and then",
    "imaged by confocal microscope. See Bogovic et al 2018 for details.")
  )

use_data(JRCVNC2018F, overwrite = T)
natverse/nat.flybrains documentation built on Aug. 19, 2022, 7:51 a.m.