diff options
| author | ashwinrcs | 2015-10-12 16:10:44 +0530 |
|---|---|---|
| committer | ashwinrcs | 2015-10-12 16:10:44 +0530 |
| commit | 879514b5ea30a527a1edc74330c4e8b76516647b (patch) | |
| tree | afb82c62932f2489611d8c2acfe5b4eb9fa0f403 | |
| parent | 9307214c1587179a0db4194014280f250b94e7ca (diff) | |
| download | SysID-R-code-879514b5ea30a527a1edc74330c4e8b76516647b.tar.gz SysID-R-code-879514b5ea30a527a1edc74330c4e8b76516647b.tar.bz2 SysID-R-code-879514b5ea30a527a1edc74330c4e8b76516647b.zip | |
Delete rgs1.R
| -rw-r--r-- | R/myCode/rgs1.R | 10 |
1 files changed, 0 insertions, 10 deletions
diff --git a/R/myCode/rgs1.R b/R/myCode/rgs1.R deleted file mode 100644 index cf4855b..0000000 --- a/R/myCode/rgs1.R +++ /dev/null @@ -1,10 +0,0 @@ -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 |