присвоить значение в switch (), отличное от параметра, переданного в R

Question

Я не совсем понимаю switch () в R, я видел примеры вроде:

newCat <- switch(EXPR = category,
       cat1   = catX,
       cat2   = catX,
       cat3   = catY,
       cat4   = catY,
       cat5   = catZ,
       cat6   = catZ,
       "not available")

Но мне нужно, учитывая параметр, сделать что-то другое ...

Я пытаюсь переписать это в случай:

sample<-function(M,meth)
{

  if (meth=="sin_low" || meth=="sin_high")
  {
    d<-samplesin(M)
  }
  if (meth=="GP" || meth ="GP_high")
  {
    d<-sampleGP(M)
  }
  return(d)
}