All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

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