1 files changed, 9 insertions, 0 deletions
diff --git a/R/myCode/idinput.R b/R/myCode/idinput.R
new file mode 100644
index 0000000..05472e1
--- /dev/null
+++ b/R/myCode/idinput.R
@@ -0,0 +1,9 @@
+idinput<-function(n,type='rgs',band=c(0,1),levels=c(-1,1)){
+  if(type=="rbs"){
+    v1<-gen.rbs(n,band,levels)
+  } 
+  else if(type=="rgs"){
+    v1<-gen.rgs(n,band,levels)
+  }
+  return(v1)
+}
+\ No newline at end of file