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