rnoninfm <- function(n=1, para=NA){
  x <- rep(1,n)
  x
}
dnoninfm <- function(x=1, para=NA){
  1/x
}