diff options
| author | ashwinrcs | 2015-10-09 11:37:08 +0530 |
|---|---|---|
| committer | ashwinrcs | 2015-10-09 11:37:08 +0530 |
| commit | 69813446dfe77003c88773da6bc397a1658229e1 (patch) | |
| tree | c1cd21b62841d21eab6e59db7c3fe4c2cdc18337 /R/myCode/rgs1.R | |
| parent | bd9241669649b2a59c89fad97c5bb612a05f5618 (diff) | |
| download | SysID-R-code-69813446dfe77003c88773da6bc397a1658229e1.tar.gz SysID-R-code-69813446dfe77003c88773da6bc397a1658229e1.tar.bz2 SysID-R-code-69813446dfe77003c88773da6bc397a1658229e1.zip | |
Adding rbs/rgs signal generation code file to the repository
Diffstat (limited to 'R/myCode/rgs1.R')
| -rw-r--r-- | R/myCode/rgs1.R | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/R/myCode/rgs1.R b/R/myCode/rgs1.R new file mode 100644 index 0000000..cf4855b --- /dev/null +++ b/R/myCode/rgs1.R @@ -0,0 +1,10 @@ +gen.rgs<-function(n,band,levels){ + require(signal) + mu<-(levels[1]+levels[2])/2 + sigma<-(levels[2]-levels[1])/2 + v<-rnorm(n,mu,sigma) + v<-sapply(v, function(x) {if(x==0) rnorm(1) else x}) + gfilt<-butter(8,band,type ='pass',plane ='z') + v1<-filter(gfilt,v) + return(v1) +}
\ No newline at end of file |