File: sas.R

package info (click to toggle)
foreign 0.8.40-1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 1,576 kB
  • ctags: 657
  • sloc: ansic: 6,997; asm: 4; sh: 2; makefile: 1
file content (11 lines) | stat: -rw-r--r-- 370 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
 
if(!nzchar(Sys.getenv("R_FOREIGN_FULL_TEST"))) q("no")
library("foreign")
setwd(tempdir())
tfile <- "int1982ag.zip"
download.file("ftp://cusk.nmfs.noaa.gov/mrfss/intercept/ag/int1982ag.zip",
              tfile, quiet=TRUE, mode="wb")
zip.file.extract("int1982ag.xpt", tfile)
dfs <- read.xport("int1982ag.xpt")
foo <- dfs$I3_19822
nrow(foo)
stopifnot(nrow(foo) == 3650)