Возникли проблемы с использованием && и / или || и перепрограммировать функцию NthRoot

Question

Так что я должен использовать && и / или || и перепрограммируйте функцию NthRoot. Код функции NthRoot:

NthRoot<-function(m,n) {
    if(!is.integer(n)!=1) {
      stop("Error: N must have length 1. Go away.")
      }
    else if (!is.integer(n) | is.numeric(n)) {
      return(m^1/n)
      }
   else
     stop('Error: You must input an interger or vector of intergers. 
Existing...\n\n')}

Когда я заменяю if и else if на double & и double |, я получаю сообщение об ошибке: Ошибка: неожиданное '&&' в: «NthRoot <-функция (m, n) { && ". Мне трудно разобраться в этой части программирования на R, поэтому я изо всех сил. Любая помощь очень ценится. Спасибо </p>