Commit 2fcaa3e3 authored by Pramod R Sanaga's avatar Pramod R Sanaga

A bit of code cleanup.

parent 3ef691db
#!/bin/sh
InputFile1="\"$1\""
InputFile2="\"$2\""
OutputFile="\"$3\""
/proj/tbres/R/bin/R --slave << EOF
xv <- read.table($InputFile1, header=0)
yv <- read.table($InputFile2, header=0)
xval <- xv[,2]
yval <- yv[,2]
corrObj <- ccf(xval, yval, lag.max=1000, type="correlation", plot=FALSE)
dataFrame <- data.frame(corrObj[[4]], corrObj[[1]])
write.table(dataFrame,file=$OutputFile,quote=FALSE,row.names=FALSE, col.names=FALSE)
q(runLast=FALSE)
EOF
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment