# NOT RUN {
iNthroot(0.5, 6) # 0
iNthroot(1, 6) # 1
iNthroot(5^6, 6) # 5
iNthroot(5^6-1, 6) # 4
# }
# NOT RUN {
# Define a function that tests whether
isNthpower <- function(p, n) {
q <- iNthroot(p, n)
if (q^n == p) { return(TRUE)
} else { return(FALSE) }
}
# }
Run the code above in your browser using DataLab