###### create a SAC format response file:
temp.file= tempfile("PZ")
cat(file=temp.file, c(
"ZEROS 4",
"-999.0260 0.0000",
"POLES 6",
"-0.1480 0.1480",
"-0.1480 -0.1480",
"-314.1600 0.0000",
"-9904.8000 3786.0000",
"-9904.8000 -3786.0000",
"-12507.0000 0.0000",
"CONSTANT 4.540182e+20"), sep='\n')
RESP <- ReadInstr(temp.file)
Run the code above in your browser using DataLab