inst/extdata/nb.R

nb <- list()
for (i in 1:34)
  nb <- c(nb,list(scan(file="libsrc/prabclus/data/nb.txt",
                   skip=i-1,nlines=1, quiet=TRUE)))
remove(i)
save(nb,file="libsrc/prabclus/data/nb.rda")

Try the prabclus package in your browser

Any scripts or data that you put into this service are public.

prabclus documentation built on Oct. 24, 2023, 1:06 a.m.